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Disclosure of the Invention 

The invention encompasses the combination of two printing technologies into a 
single web fed printing press 10, particularly the combination of flexographic 14 and 
intaglio 17 printing. Other features may be present in the combination web printing press 
10 as well, such as die cutting, offset printing, gravure printing, hologram application, 
and the like. The aforementioned combining process is accomplished through the use of 
precision servo motors 35 coupled with motion control hardware 40 and software 
(Appendix). The computer programs (Appendix) incorporated into this application were 
written by the inventor to accomplish the complex process of inarrying two dissimilar 
printing processes in a single press. 

The combination of two dissimilar printing processes is a complex problem of 
motion control. Web tension and position must be maintained throughout the printing 
process in order to achieve accurate print registration. The inventor has implemented 
precision control of the web using high accuracy servo motors 35 combined with low 
inertia drive rollers 25, 39, 42. A multi-processor motion control system 40 commands 
the activity of the servo motors 35 and monitors the resultant movement with digital 
position feedback. All solenoids, lights, and switches are interfaced to the press computer 
40 using an integrated programmable logic controller. 

The press controller 40 is comprised of a PC based computer using RISC based 
motion control boards. Each RISC based motion control board has its own processor, and 
supports up to eight channels of motion control. A single servo motor 35 defines a 
channel. Each point of web control uses a unique servo motor 35. Each motion control 
board runs a unique software program created by the inventor. The operator interface is 
driven by the host PC running Microsoft Windows and an application program 
(Appendix). This application program obtains information from the operator, converts it 
to machine commands, and passes it to the motion control boards via the PC back plane. 
It is the host PC application that coordinates the entire operation of the press 10, 
including programmable logic controller functions. 
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Brief Description of the Drawing 

FIG. 1 A is a diagrammatic side elevational view of flexographic and intaglio print units 
according to the present invention; and 

FIG. 2 A is a diagrammatic side elevational view of optional finishing or processing units 
disposed dowriistreain of the components shown in FIG. 1 A. 
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Best Mode For Carrying Out The Invention 

As illustrated in FIGS. 1 A and IB, the present combination flexographic and 
intaglio printing press, generally designated 10, can be looked at as a multi-axis robot. 
Robots are thought to handle materials in an orderly way, moving them from one place to 
another, .and performing operations along the way to alter the effect of the material. The 
press handles substrate or web material 1 1 wound in a roll 12, typically on a three inch 
cardboard core with an outside diameter of forty inches. The number of feet of material 
1 1 on the roll depends on the type and thickness of the material being printed. The press 
is not limited to printing on paper; films, polymers, and the like are also suitable as a 
printing substrate 1 1 . The width of the substrate or web 1 1 is a function of the design 
width of the combination press. An unwinder 13 acts as a delivery device for the substrate 
11. The substrate 1 1 is pulled from the unwinder 13 by a first flexographic print unit 14 in 
the press line. The unwinder 13 includes a conventional tensioning mechanism 16 to 
provide resistance. The degree of resistance applied to the web by the unwinder 13 is 
adjustable, and regulated by a stand-alone tension controller. 

All of the printers in the press line are flexographic print units 14. Preferably, the 
flexographic press units 14 precede the intaglio print units 17. One or more flexographic 
print units 14 apply ink to the substrate 1 1 . The units' motion can be effected as a group 
with a single servo 35, or independently with a servo 35 for each print unit 14. The 
servo(s) 35 are controlled by a motion controller board 45 in the press computer 40. Since 
axis or unit numbers are generally assigned chronologically from the first unit in the line 
up, the first flexo 14, or group of flexo units 14 are assigned unit 1 . This or these servos 
receive speed and position information from the motion controller 45. A reference signal 
to the motion controllers) is derived from one of two sources: 1) in Flexo only mode, 
where the press is printing with the Intaglio unit disabled, the reference signal is 
synthesized from internal reference generator software, and 2) in combination mode, the 
reference signal is generated by an optical encoder 21 mounted on the intaglio unit drive 
22. The motion controller 45 generates a command to the servo based on the reference 
signal generated and other parametric data such as operator data, print repeat length, and 
so on. Print registration (the alignment of one printed feature to another) can be adjusted 
by actions of the operator making entries to the host computer, which is translated to 
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machine commands, and ultimately affects the command to the servo(s). The printed ink 
is dried at each flexographic print unit 14, typically with hot air or ultraviolet light. 
Operator pushbuttons at the unit(s) 14 connect to the integrated PLC. Each action at one 
or more of the pushbuttons is evaluated by the integrated PLC in the host computer 40 
which gets translated to machine commands, resulting in appropriate action by the motion 
controller(s) 44, 45. 

The intaglio unit 17 generally follows the flexographic print unit(s) 14. The press 
will include one or more intaglio print units 17 and contain one or more inking units 23 
each. Intaglio units 17 also include some form of wiping system 24 to remove excess ink 
applied to the plate. The intaglio unit(s) may also contain a prewipe system that removes 
excess ink from the plate. Each of the subsystems within the Intaglio unit(s) is controlled 
by the integrated PLC. Multiple servos coordinate the movement of paper through each 
intaglio unit. 

When the press operator selects the operating mode of flexographic only, which 
may include other units on the press such as the aforementioned ones, the intaglio unit(s) 
17 is inactive. The operator bypasses the intaglio unit(s) 17 by creating a web path around 
the unit(s). This is accomplished by passing the web 1 1 over rollers that route the web 
over or under said unit(s). Press motion commands from pushbuttons such as Jog and 
Run cause no movement within the Intaglio unit(s). Servo motor speed and position 
information is created using an internal synthesized method. 

When combination print mode is selected, the first intaglio unit 1 7 in the press 
line generates the motion reference signal. All servo movement is coordinated by this 
signal. Flexographic unit(s)' servo(s) move in conjunction to the reference signal. The 
signal is conditioned by parametric data such as print repeat length, web tension set point, 
and the likes. Software algorithms continuously compute the associated servo commands 
which, when combined with servo motor digital position feedback, provide precise 
movemeht of the servo. It is said that this activity is referred to as an electronic gearbox. 
The software controls which signals and parameters are needed to effectively maintain 
registration between each dissimilar unit(s) in the press line. Complex algorithms 
message the reference signal before passing it on to the specific servo motors. The 
intaglio unit(s) utilize a "stop-n-go" substrate transport. This mechanism creates an 
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intermittent movement of the web similar to a movie projector. A series of four servos 
establish the intermittent motion. Since the Flexographic and other units in the press line 
require continuous and stable web movement, it is necessary for the "stop-n~go" transport 
to accept web as continuous flow and deliver web in a continuous flow to the next unit in 
the line.- Each servo drives a pull roller 25 that the web contacts, thus allowing the servo 
to affect the position of the web. The implementation of the servos is as follows: 1) the 
first servo pulls web in a continuous manner from the previous unit. Its motion command 
from the motion controller is based on the reference signal and the parameters associated 
with web tension settings. It pushes the web into a vacuum box 26, which is used as an 
accumulator. A vacuum pump insures that adequate vacuum is present to receive web at 
the speed necessary. 2) The second servo, referred to as shutde drive #1, pulls web from 
vacuum box #1 and passes it to the intaglio plate cylinder 27. The command for this servo 
is based on the reference signal and several other key elements. It is the responsibility of 
this servo to position the web in register with the image on the intaglio plate. The intaglio 
plate is mounted to a cylinder that has a circumference of double the largest Flexo plate 
cylinder. The intaglio plate cylinder is moving at twice the surface speed as the Flexo 
plate cylinder(s) so that both make a revolution in the same period of time. The shuttle #1 
servo creates an intermittent motion pattern of web so that part of the time the web is 
stopped while part of the time the web is moving twice the speed as is the other units in 
the press line. The algorithm that generates the command to the servo uses the reference 
position to calculate the position of the shuttle 500 times per second. A mark sensor reads 
registration marks printed by the first unit in the press line to adjust the motion 
commands to permit perfect registration. It is the register mark that allows the motion 
controller to compensate for slippages in the web across rollers, slight elongations in the 
web, and other artifacts of the printing process. The motion algorithm uses a sine type 
pattern generator thereby creating a smooth transition from the "web stopped" portion of 
the cycle to "web moving" portion of the cycle. This sinusoidal pattern of motion is 
synchronized to the leading edge of the intaglio printing plate by the reference, and its 
relationship to the registration marks read on the web. Mark register data is collected 
through direct connection of the mark sensor to the motion controller board(s). 3) The 
third servo is referred to as shuttle servo #2. This servo accepts web from shuttle servo #1 
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after printed by the intaglio plate cylinder. The servo's command is identical to that of 
shuttle servo #1. with one exception: this servo command includes additional parametric 
data to create a slight difference in position relative to shuttle servo #1 . In numerical 
terms, when shuttle servo #1 moves 1" forward, shuttle servo #2 may move LOOT 5 
forward. This creates a slightly higher web tension while the web undergoes intaglio 
printing. Parametric data affects the amount of gain in shuttle servo #2. Shuttle servo #2 
passes the web to vacuum box #2 (28), which serves as an accumulator as does vacuum 
box #1.4) The fourth servo in the transport pulls web from vacuum box #2 and passes it 
to the next unit in the press line. This servo is running in a continuous motion mode, 
based on the reference signal. Parametric data establishes the electronic gear ratio so that 
the web is being delivered to the next unit at the same position and speed as the first 
servo accepted web from the previous unit on the press line. 

Once the web 1 1 is printed with the intaglio ink, it passes through a forced air 
dryer 18. A chill unit 19 follows next in the press line, cooling the back to ambient 
temperature from a highly elevated temperature in the intaglio dryer 38. The web is 
passed across several chilled rollers 30 in a zigzag pattern. Circulating refrigerated water 
through the cores chills the rollers. The chilled rollers 30 are driven by a servo motor 35 
that receives its command based on the reference and parametric data such as web tension 
settings. Additional intaglio uni't(s) 17 would follow the first intaglio unit, if included. 
Their operation is identical to that of the first intaglio unit, described above. 

As illustrated in FIG. IB, finishing or processing units follow in the press line. 
These units may consist of one or more of the following: die cutting unit 33, registered 
holographic application unit, RFID applicator, numbering, or other. Each respective unit 
would be driven by a separate servo motor 35, which receives its command from the 
motion controller board(s). These units and their respective servo move the web in a 
continuous motion, using parametric data to affect registration and tension. Each unit may 
include a mark sensor to further affect the motion command. Precise registration is 
obtained when mark sensor data is part of the motion command, as web distortion, 
elongation, and the likes, become known in the calculations for the command. Likewise, 
conventional rewinding 37, folding, and/or sheeting apparatus. may be included in the 
press line. Once the web is printed, and other features are added as necessary, the web 



WO 03/082574 PCT/US03/09267 
gets delivered as follows depending on customer requirements: A rewinder 37 accepts 
web from the previous unit in the press line and winds it onto paper cores. The size of the 
core and the overall dimension of the finished roll are dependent on the type of rewinder 
used and customer requirements. Typically, a roll would be wound on a 3 inch core and a 
40 inch finish diameter. Rewinders are generally stand-alone units that receive basic run / 
stop information from the integrated PLC. Folders are driven by a servo motor that 
receives commands based on the reference and parametric data. A folder delivers the web 
in a fan folded format, and subsequently gets boxed in 2500 folded documents to a box. A 
sheeter is driven by a servo motor that receives commands from the motion controller(s) 
based on the reference signal and parametric data. A mark sensor normally accompanies 
the controls for a sheeter, as the cut position is a close registration feature. A sheeter 
accepts web from the previous unit in the press line and cuts the web into a equal length 
documents that are subsequently boxed by the 500 to 2500 unit count The cut registration 
is accurately maintained when a mark sensor is incorporated to read the registration mark 
printed by the first active unit in the press line. 

Software algorithms utilize digital data from devices on each of the units on the 
press line, incorporate that information with parametric data from the operator, and 
configuration data that specifies the resolution of each position encoder, the 
circumference of cylinders and pull rolls, and other machine specific data. It is this data 
that results in precise commands to each servo in the press that in turn results in accurate 

movement of the web under all operating conditions. Preferably, each servo has a 

i 

separate algorithm evaluating the data and issuing commands. Electronic gearing can be 
thought of as the general activity of each algorithm. Additional computations take 
dynamics into account that include web stretch, web elongation, and other web 
distortions. In the case of the intaglio unit(s) 17, the shuttle roller 39 movement is based 
on a profile, or cam pattern. It's commanded position is continuously modified by 
position mark sensor data. The press operator adjusts parameters on the graphics display 
that results in web tension changes, as required by various substrate types. Algorithms 
adjust the servos commands so that the respective servo runs slightly slower or faster than 
the previous unit. 
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Glossary: 

Prewipe unit: Used in conjunction with intaglio printing. An inking unit applies 
ink to the intaglio printing plate. The prewipe unit contacts the plate next for the purpose 
of removing excess ink from the printing plate. A typical configuration of a prewipe unit 
would include the prewipe roller, a doctor roller, and a doctor blade. The doctor roller 
removes the ink from the prewipe roller, and the doctor blade removes ink from the 
doctor roller. The removed ink is collected in a recovery system for either disposal or 
recycling. 

* Reference: This is the signal that orchestrates the movement of servos in the press 
line. It can be thought of in the same way as a conductor in an orchestra. 

Registration: The alignment of multiple features to a substrate. An example is the 
alignment of two separate colors on a web. Another would be the alignment of printing 
on the web to that of a die cutting unit. 

Servo motor: Refers to a high precision variable speed motor. Servos possess the 
ability to maintain precise speeds, accelerate or decelerate loads in a fraction of a second. 
Web: The stream of paper or other substrate that spans the length of the press is the web. 
It starts at the unwinder, pulled from a roll, and extends to the delivery end of the press 
where it is either rewound into a roll, cut into sheets, or folded. 

Wiping System: Part of an Intaglio print unit, the unit removes excess ink from 
the engraved printing plate. An intaglio inker applies ink to areas of a printing plate. The 
wiping system removes all ink from the surface of the plate thus leaving in only the 
engravings on a plate. When a prewipe system is included, it tends to reduce the load on 
the wiping system by taking a preliminary wipe on the plate. Wiping systems come in two 
forms, and are vastly different from each other. They are: 1) Water wipe system. A water 
wipe system utilizes a rubber covered roller that contacts the printing plate, rotating so 
that its surface is moving in the opposite direction as the plate cylinder. This effectively 
rubs the ink off the surface of the printing plate. Once the ink is collected on the wiping 
cylinder, it later comes in contact with cleaning solution, brushes, and a doctor blade. The 
process of wiping and cleaning is ongoing. The cleaning solution carries the excess ink 
away which is disposed in a separate process. 2) A paper wipe system removes ink 
similarly to the extent that the wiping roller is used to press paper against the plate, using 
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the same opposite direction movement In this system, the ink is carried away on the 
paper, which starts at an unwinder, runs across the wiping roller, then rewound onto a 
paper core. 

The press 10 utilizes three separate software programs (Appendix), each running 
on it's-own processor 40, 44, 45. An industrial PC 40 runs the host software with two 
RISC processor based motion control boards 44, 45 plugged into the industrial PC back 
plane. The industrial PC 40 acts as the host to coordinate the activities of itself and the 
motion control processors 44, 45. Operator interaction takes place through the host 
processor through the use of color graphic screen information and input through a 
keyboard/mouse combination or a touch screen. The motion control processors 44, 45 
interpret commands from the host 40 via the PC back plane and carry out the activity of 
managing the machine motion throughout the press 10. 

The first motion control processor 44 manages the activities of the intaglio unit 17 
including the stop and go web transport. It also generates timing signals that one or more 
other motion control processors 45 utilize to synchronize web motion so as to maintain 
web tension and registration. 

When the press 10 is operated in the combination mode where the intaglio 
printing is taking place in conjunction with the flexo printing and possibly other features 
on the press, the following process is utilized to manage motion: 1) The operator initiates 
a command to run the press via a run pushbutton; 2) the run command is interpreted by 
the host 40, and subsequently passes the command on to the first motion processor 44; 
3) the first motion processor 44 enables the main drive 22 on the intaglio unit 17 and 
sends it a speed command ; 4) the intaglio gear train, coupled with the main printing 
cylinder 27, rotates at the preset speed, which in turn causes the mechanically coupled 
reference encoder 21 to rotate; 5) the signal from the reference encoder is fed to the first 
motion processor 44; 6) the value of the reference encoder provides a binary number that 
points to a lookup table in the processor 44 signifying the position of each of the servo 
motors used to position of the web 11; 7) the values in the lookup table are adjusted both 
statically when the press is calibrated and dynamically as a result of reading information 
about the web 1 1 on an ongoing basis via registration mark sensors and web tension 
sensors (the location of each of the sensors is dependant on the press configuration and 
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may or may not exist depending on the press configuration); 8) the first motion processor 
44 also distributes the value of the reference encoder in real time across the PC back 
plane to the other motion processors) 45; 9) the other motion processor(s) 45 adjust the 
position of their respective servo motors based on their respective lookup tables. 

* When the press is operated without the intaglio unit 17, the first motion processor 
44 generates a synthesized reference encoder signal that .it uses and distributes to the other 
motion control board 45. In this case, the sequence of activity matches that of the 
combination mode with the following exceptions: 1) the host run and speed command is 
converted to the synthesized signal rather than generating the enable and speed 
commands to the intaglio main drive. 
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FrmProduction - 1 

Option Explicit 

Private Sub Command! 0_C1 ic>: ( ) 

Call ExltProduction 
End Sub 

Private Sub Comroandll_Click { ) 

'Get a login ID code from operator 
Dim Hi 

WhbseFocus.ft ■ 4 'Tell Apad to come back to us 
Production traceft » 2 'ttetum path 

ErmApadlTextl.Text « " n 
frmApad. Visible = True 

End Sub 

Private Sub Comma ndl2_Click ( ) 

'Handle the logout - simple at this point 

FrmProduction. Textl- Text - 
frmMain.Text2.Text = "" 



End Sub 

Private Sub Command 13_Click < ) 

WhoseFocusS = £V\This is- tfte/; '^roductidtc'ioo^e _ 
Broductiontxacetf. ^ 1 ; , '.Set - return* addres a \/£y ; ' 
frmNpstd.yisibXe.;- JTrue,;)-';' **>\ l/'Y-W- "" P;, ' ! . 
frmNpadlTextl.Tex^ « "V !Start with^uli . ■ 

i 

End Sub 

Private Sub ExitProduction() 

FrmProduction. Visible - False 
fnriMain.Textl.Text - "Standby" 
f rmMain. SetFocus 

End Sub 

Private Sub FonnJCeyDown (KeyCode As Integer, Shift As Integer) 

If KeyCode =» *H79 Then Call ExitProduction 
End Sub 

Private Sub Textl__Change ( ) 

'Sync Operator ID on f rmMain with Uhis variable 
rrmMain!Text2.Text - FrmProduction ! Text 1 .Text 

End Sub 
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trmpressrun - 1 
Option Explicit 
Private Sub CommandlO_Click ( ) 

ExitPressrun 
End Sub 

Private Sub Comma ndl l_Cl i cfc <) 
Dim I!. 

If ™ f rmPreas run .MhReal Input 3. Text - 0.005 
f rmPres3run.MhUealXnput3.Text « I! 

End Sub 

Private Sub Commandl2_Cl±ck ( ) 
Dim I! 

I! = f rmPress run. MhRealInput3 .Text + 0.005 
f rraPressruri.MhRealInput3.Text - T! 

End Sub 



Private Sub ExitPressrun ( ) 

trmPressrun. Visible - False 
PressruntraceS =- 0 'Clear return flag 
frmMain. Tex tl. Text = "Standby" 
frmMain. SetFocus 

End Sub 

Private Sub Commandl3_Click () 
.Dim Ii 

XI =» friciPress run. MhReallnputS. Text + 6.005 

If II > (System_circumferenc.e# V 0;001) Then 1 1' » 0' 

frmP res s run. MhRealpCnputS. Text '= I! 

End Sub 

Private Sub Comraandl4_Click <) 
Dim I! 

II — f rmPress run. Mh Real Input 5. Text - 0.005 

If I! < 0 Then I! = System_circumference# - 0.005 

JFrmPressrun. MhReal Inputs. Text =^11 

End Sub 

Private Sub Comma ndl 5_C1 i ck ( ) . 
Dim I ! 

I! *= f rmPressrun.MliRealInput3.Text ~ 0.1 
f rmP res s run. MhReal Input3 . Text ™ U 

End Sub 

Private Sub Command 16_Click { ) 
Dim I! 

Tl «* f rniPressrun.MhRe«lInput3 .Text + 0.1 

If t! > <System_circumference# - 0.001) Then I! = 0 

Crmt>ressrun.MhRealInpul.3.TexL = I! 
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trmPressrun - 2 
End Sub 

Private Sub Commandl7_Click { ) 
Dim I f 

II » frmPressrun. MhReal Inputs. Text - 0-1 

If I J < 0 Then I! = System_circumference# - 0.1 

frmPressrurr.WiRealInput5.Test « II 

End Sub 

Private Sub Command 1 8_C1 ick { ) 
Dim I! 

II « frmPressrun.MhRealInput5.Text + 0-1 

If I! > (System_circumference# - 0.001) Then I! = 0 

frmPressrun.MhReal Inputs. Text = 11 

End Sub 

Private Sub Commandl9_Click { ) 

•Toggle Intaglio Auto/Manual 

If ReglntaglioAutoa « 0 Then 
ReglntaglioAutoS = 1 
frmPressrun I Label32. Visible = True 
Else 

ReglntaglioAutofc - 0 
rrmPressrun!Label32. Visible - False 
End If 

VarChangeFlag&(5) « 1 
End Sub 

Private Sub Command2 Onclick ( ) 

•Toggle Cutoff Auto/Manual 
If RegCutoffAutofc « 0 Then 

RegCutoffAutofc, » 1 

frmPressrun! Label 4 -Visible - True 

Else 

RegCutoffAutoft » 0 
frmPressrun ILabel4 .Visible = False 
■ End If 
VarChangeFlag${8) « 1 

End Sub 

Private Sub Coramand21_Click{) 
Dim II 

II « frmPress run. MhRealInput2. Text + 0.1 

If I! > (System_circumference# - 0.001) Then I! =. 0 

frmPressrun. MhReal Input 2. Text = II 

End Sub 

Private Sub Command22_Clicfc () 
Dim II 

II « CnnPr«S3 run. MhReal Inpu t2 - Text - 0.1 

If I! < 0 Then I! = Systera_circumference# - 0.1 

TrmPress run. MhRealInput2. Text = 1 1 

End Sub 

Private Sub Command23 Click {) 
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f rmPressrun - 3 



Dim I! 

II = t cmP res s run. Mh Real Input 2. Tex I; + 0,005 

If I! > (System_circuroference# - 0.001) Then I! = 0 

f rmP res s run. Mh Real Input 2, Text = I! 

End Sub ' < 

Private Sub Command24_Click { ) 

Dim I! 

I! » , I: rmPressrun .MhReal Input 2. Text - 0,005 

Jf I! < 0 Then I! = Systein_circumference# - 0.005 

frmPress run. MhRealTnput2, Text = T! 

End Sub 

Private Sub Command25_Click { ) 

•Toggle Numbering Auto /Manual 
TT RegNumb«ringAuto% «= 0 Thnn ■ 

RegNumberingAutoft = 1 

t rmPressrun I Labei7. Visible = True 

Else 

RegNumberingAuto% « 0 
frmPressrun!Label7. Visible - False 
End If 

VarChangeFlagfc (7) = 1 
End Sub 

Private Sub Coramand26_Click ( ) . 

f rmPressrun SSliderl. Value ■= ,f rmPressrun! Slider 1. Value + 10 



If RegDiecuttingAu]to% = 0 Then 
RegDiecuttingAUto% =» 1 
frmPressrun!Label2 8. Visible = True 
Else 

RegDiecuttingAuto% = 0 
frmPressrun!Label2 8 -Visible = False 
.End If 

Va rChangeFlag ft { 6 ) » 1 
End Sub 

Private Sub Coinmand28_Click ( ) 
Dim I! 

I! = f jnnP res s run, MhReal Input 6, Text + 0-1 
f rmP res s run, MhReal Input 6. Text = I! 

End Sub 

Private Sub Command29_Click ( ) 
Dim I! 

I! = frtnPr«s sen n .MhR«a 1 Input 6. Text - 0,1 
f rmPressrun, MhReallnputfi. Text = II 

End Sub 



End Sub 
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trmPrcccrun - 4 
Private Sub Command 3 0_C1 i ck {) 
Dim I! 

Tl = Cn»Pc»#»*run-Mtine«ilTnput6-Te«l + .0-005 
CrmPcfeSS run. MhRttal Inpul6. Tt& I. » T! 

End Sub 

Private Sub Command31 _CH ck { ) 
Dim I! 

I! = IT rmP res srun.Mh Real Input 6, Text - 0.005 
CrmPre33ruri-MhRe«lInput6.Text = 1 1 

End Sub 

Pri vate Sub Command32_Cl i ck () 

'Scrap Blower Control 
TT 5crapR«questfc ■ 0 Then 
SnrHpRequ«J*t?k » 1 

±rinPressrun!Label30 .Visible - True 
Eisc 

SurapRequestft 5=1 0 

±rmPressrun!Labei30. Visible - False 
End It 

End Sub 

Priva te Sub Comma nd 3 3_C1 1 ck ( ) 

'Numbering 1 Control 

Ca 1 1 Numbe r s l_Man__Togg 1 e 

End Sub 

Private Sub Command34_Click ( ) 

trmPressrun I Slider jU Value = irraPr ess run! Slider Lvalue - 10 
End Sub 

Private Sub Command35 CI i ck ( ) 

'Numbering Z Control 

Cal 1 Numbers2_Man_Toggl e 

End Sub 

Pri vate Sub Command37 — CI i ck { ) 
Dim I! 

T! - C rmPress run. MhRealInput4 .Text + 0.1 

If i! > {System_circum:ference# - 0.001) Then T! = 0 

TrtnPress run. MhReal Input 4 .Text =* T! 

End Sub 

Private Sub Command 3 8_Click ( ) 
Dim I! 

Tl = r rmP res ; s run. MhReal Input 4 .Text - 0.1 

If I J < 0 Then T! = System_circumf erenceft - 0.1 

rnnPreHxrun.M}iRHHlTnput4 -T«xt » Tl 

End Sub 
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trmP rocs run - i> 

ri i vni.vs liuii wwiiuiioMvi.i!'»__i* i > * I I 

Dim I! _ 

Ti — rrniriMHMriiM-Wiiwt*HlTii£iui.M-T«Ki- t ii.uu:i 

ii > ( :ijyfti-«5iii i-i i v.umi est «sin-«s«' U.wiJii TJicsh it — w 
rrtnriHHKr uilHIikmhI Tnpui.'t .Thxi, - Ti 

End Sub 

p i i v« i.ts Uuw " C-v/mmra n\J4 U i n-<» U ■ 

Dim I! _ ; 

7 i — "rmrr **K«r uii-miik****! Ttiput.'t. i kxi. ~ i*.wii;> 
j; j ; < Ttictti 5 i — ;iyi»i.csm w i.i I i.umi o nm.i:5 
rtmT't «**Hruri»H*imHrtlTn£»ji.'i-Ti*xi. — Ti 

End 3ub 

r i i woi.es Hut* v*v/mni«iivi * \.* « i i i 

Mru».HHFcif.iJhii - 1 : Tiiix in iMllimj iikiciijI « T7j 

Press run traced 1 'Set return address 

rrmrJi>Hc3-Vi si'n'iH — True. 

rntuNpHtiiTMxi."; .Twxi- - r fti.nri. wi i.n null 



End Sub 

pi i vaLc; liuw llwiwuoinju il't h.mi 



tfno.SHrouuKTt - 1 : Thin ix i:*llimj UKxiulr* til 

Press runt race*; 3 * Set return address 

f r ntwpH<i -Vi m i ill h - Tr UH 

rrimNpn<; iTHxi.'i .T«xi. — -iii.Hfi. wi i.n riu.ll 



End Sub • * 

pi i va'ue Hull Fv/i «i_?\csvi>wpn \ ilcsvwvuc p»o i.Uu«=xjc:j , Uiu i.U Ac» *-c:y«s i. i 

Ti" K«yi~iici« — *rti7n Tr> wn 

wiujK«FtMiiiM?f — a : Tti i h ix (WM iny iiicjcjuIh Tu 

Press runt racett *d 1 Set return address 

fr mKjJHci -Vi h i t»l « — Tru« 

rrmNprtii ?T«xi.l -T«xi. - : Si..*ri. wii.ii null 
End It 

7 T r\HyC.«Hi« — *rn*7 r * Tin-Hi Crf 1 1 F.x i i.r r hsh r uu 

End Sub 

r i i vai.vs Piuw 7*tJiww«JFi CL 1 C i i ilk \ j 

End Sub 

? i ^ vnt.n Hulv Hiirifca i Tnwut.l C t i i-k { Tntf«x Aa Tnt.rtvjrti*! 

WnoseFocusS 1 'Caller ID 

Press runt racc\J Indcxtf + b 'Variable ID 

r r nnM£>rtci . Vi x i ol m — TniH 

rrmWprttilTHixi.l .Thx!. - ' CI e.n r hi* T fur 

End Sub 

Fi i vaLes Hub MhReal Tnpuh2_Chang«; ( ) 

"Huiiilmr I ntj r**yixl.«r ofT^nl. t:liHinj»-tcl 
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Vh r CiiH uijh r "i Htj n { i — ~i 

End Sub 

r i i wat.R IJuii rii I r\r.n t i |iyuL»_U i i i } 

WhoceFocuctf 1 1 Caller ID • • 'i 

r*r hhsi iini.r hiihk - 7. "wumimi iny rMiji«i.«r oi'TxHi. 
r r mlv£iHti . Vi x i nl « — Trim 

rmiNpHM ;tmki."i .Tmxi. — : ciHHf t>u r T« r " 
End Sub 

\ ' 

: 7iii.Htj"i io fHtjiMi.e.r oiTkmi. i:mhmijhci 
Vh r 0Tr»H mj nF"i h ij rt ( u ) — 1 

End Sub 

r • i uai.r. ►•Jul/ i-tilKcto i I \* * n-M I 

VJhoccFocucfc 1 1 Caller ID 

7w hhh r uiu.r ai:«« — 1 " i ili^lljl i « r«iji«i.«r oiThhi. 
r rtnWpHCJ . Vi « i til « — True* 

rrttinpHfi iThxi.I .Thxi. — "*"* T <.Ti*-t*r i>n fTnr 
End Sub 

ri i voi.r juu rniKero! iti|/u'u4 v»iiony«W 

: mhx() r hij i Hi. «r nfr.sHi. tinrfiujMii 

End Sub 

" WnoccFocucS 1 'Ciller ID 

rr MHMr uiii.r Hii«?i. — tjn 5 mhxu rnsijiHi-Mf cirTnwi. 
r r m'wpHti - Vi h i ol m — :i r u« 

r r tnWpHti ! Thxi.1 . Thx i-S — : v~l r ehj f f« r 

End Sub 

T Cui.€>rr rwijixi.«r c>rrM«i. ciiiHinjHri 
V** r iTiirfiHj*«r"l (5) — 1 

End Sub 



WnocoFocuctt I 'Caller ID 

F'f «x«f uni.r*fc:»-.rt - 3 s \"ui.orr r«yiMi.«r cuT-kmi. 
i~r nnv£>rtci .Vi « t ol h - Tf »H » 
f r inraprtti i Thx i .1 - TV-x i . - : ill mh r tiu i" i"m r 

End Sub 

Hittii.i itcj r«iji.si.«r c>rTx«i. c.nHiujMiJ 
Vrt riTiirtnijHFl riijT: ("i ) — "> 

End Sub 
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tziaTressrun 7 

ri'l vo i.« Ciut* nuKr.o I i uiiu'uu \l i i \.k i i 

wh««»>pf.«.«>i i » caller TD 



* _ — — 

. ft »»ur \*t i !Tm« i 1 T»-» v i — ~~ M'iM-tf rtiitiMr 



r*» I vole LJuw o J 1 lie: l i CI in 1 »vi« I* t 

trs-Jresszun !Teut2 .Te;;t trssTzessru^ i Slider! . Value 
insT" UFleus ! Text 2 . Tent rzisTress run ! TentiJ - Tent; 
trmPyurieuo ! Slidczl. Value £za?tess£un : Sliderl . Val; 



Fzssl status ! Text! . Te;:t irsu?ressrun ITeutli. Text^ 

niT-fll'Tlti Mtj~i if»:T»-Ki ✓ TVxi — ~ r m~« r n^*< m it > i t-v J P i**»ri 
Tmuimi T.i • i; »•-»*-»» i7« — i"r n»7*t ****** f im !T**«i 7 Tuvl 

WMII tMIIMMH IHIJMI1 I 1 



Mtw^MirruntM^ — 1 : Tfiiv im i-m"i inn lllfirml 1 ~r 
T r iiiMpftr.^ Vi^iniM — T r hj-» 



End 
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frmPOOIntaglio - 1 

Option Explicit 

Private Sub Comma ndl Onclick ( ) 

ExitlntaglioSetup 
End Sub 



Private Sub Comma ndl 3jCl 1 ok ( ) 

'Set Wiping rewinder to manual 
WipingWinderEna% = 1 

frmP00Intaglio!Label57. Visible = False 
frmP00Intaglio!Label7. Visible « True 
frmPOOIntaglio! Labels. Visible » False 

End Sub 

Private Sub Comma ndl. 4_C lick ( ) 

'Turn hydraulics to low 
frmPOOIntaglio! Label 52. Visible = True 
frmPOOIntaglio !Label51. Visible ~ False 
frmPOOIntaglio !Label53. Visible - False 
Hydraulics % « 1 

End Sub 

Private Sub Command"] 8_Cl.1.ck ( ) 
'Turn hydraulics off 

frmP00Intaglio!Label53. Visible - True , 
frmPOOIntaglio I Label 51". Visible =. False, 
frmPOOIntaglio !Label52l Visible » False 
Hydraulics % » 2 

End Sub 

1 

Private Sub ExitlntaglioSetup { ) 

-frmPOOIntaglio. Visible = False 
-P001ntagliotrace% « 0 'Clear return flag 

frmMain. Text 1. Text ■ "Standby" 

f rmMain. SetFocus 

End Sub 

Private Sub Comma nd30_Cliok ( ) 

Call Hyd_Init_Off 
End Sub 

Private Sub Comma nd 1 l__Click { ) 

•Intaglio Inker #1 mode: Manual 

If MachineP.unning% ■ 0 Then 

.IntaglioInkerlControl% = 1* 
frmPOOIntaglio »Label43. Visible » True 
frmPOOIntaglio ! Label 42 .Visible '» False 
frmPOOIntaglio !Label44. Visible = False 
frmPOOIntaglio !Commandl2. Enabled = True 
frmPOOIntaglio » Commands 2 . Enabled = True 
VarChangeFlag%<34) «=• 1 

End If 
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frmPOOIntaglio - 2 
End Sub 

Private Sub Command! 2_C1 i ck { ) 
Call TnkerT run_Man_Toggle 
End Sub 

Private Sub Command* 5_C] 1 ok ( ) 

'Intaglio Inker #1 mode: Auto 

If MachineRunning% «= 0 Then 

IntaglioInkerlControl* « 2 
frmPOOIntaglio !Label44. Visible =» True 
frmPOOIntaglio !Label43. Visible » False 
frmPOOIntaglio !Label42. Visible « False 
VarChangeFlag%(34) « 1 
Intagliolnkerlnip* « 0 
IntaglioInkerlManrun* » 0 
frmPOOIntaglio !Label26. Visible = False 
frmPOOIntaglio !Label27. Visible - False 
frmPOOIntaglio ! Command 12 . Enabled = False 
frmPOOIntaglio ! Command 3 2 . Enabled » False 

End If 

End Sub 

Private Sub Comma ndl 6_C1 ickf) 

Call, IntInkerl_tnit_Off 
End Sub 

Private Sub Commandl7_Click ( ) 

Call IntTmps_Init_Off 
End Sub 

Private Sub Command 1 9jblick { ) 

'Intaglio Impression mode: Auto 

If MachineRunningft » 0 Then 
Intagiiolmps Control* = 2 
frmPOOIntaglio !Label6. Visible = True 
frmPOOIntaglio !.Label8. Visible » False. 
frmPOOIntaglio !Label9. Visible = False 
VarChangeFlag%(36) = 1 
If IntaglioImpsManual% <> 0 Then 
IntaglioImpsManualfc = 0 
frmPOOIntaglio! Label 19. Visible - False 
End If 

frmPOO Intaglio ! Command2 2 . Enabled = False 
End If 

End Sub 

Private Sub Command?. 0_C] i rrk ( ) 

'Intaglio Impression mode: Manual 

If MachineP.unning* « 0 Then 
Intagliolmps Control* «* 1 
frmPOOIntaglio! Label 8. Visible = True 
frmPOOIntaglio! Isabel?. Visible = False 
frmPOOIntaglio 'Label 6. Visible « False 
frmPOOIntaglio !Command2 2 .Enabled => True 
VarChan^eFlag%(36) « 1 
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frmPOOIntaglio - 3 

End If 
End Sub 

Pri vatft Sub Commands 1_Cl i ok () 

Ca 11 T n tWi pe_T n i t_Of f 
End Cub 

Private Sub Comma nd2 2_C1 i ck ( ) 

Cal 1 TntTmps__Man__Togg1 a 
End Sub 

Private Sub Comma n d2 3_C1 i ok { ) 

'Intaglio Wiping mode: Auto 
If MachineRunning* = 0 Then 
IntaglioWipeControl* - 2 
f rmP 0 01 ntaglio ! Label 13. Visible = True 
frmPOOIntaglio! Label 14. Visible = False 
frmPOOIntaglio! Label 15 .Visible = False 
VarChangeFlag*{37> =» 1 
If IntaglioWipeManual% <> 0 Then 

IntaglioWipeManual* = 0 

frmPOOIntaglio ! Label 16. Visible - False 
End If 

frmPOOIntaglio ! Command2 5 . Enabled - False 
End If 

End Sub 

PH vate Sub Comma nd?.4_Cl i ck ( ) 
» 

'Intaglio Wiping mode: Manual 

If MachineRunningfc « 0 Then 
IntaglioWipeCo«trbl% = 1 
frmPOOIntaglio!! LabeI14. Visible « True 
frmpqO Intaglio'! Label 15. Visible - False 
frmPOOIntaglio'! Labell3 .Visible = False 
frmPOOIntaglio;! Command2 5. Enabled - True 
VarChangeFlag%'(37) « 1 

End If 

End Sub 

Private Sub Command25__Click 0 

Call IntWipeJWanJToggle 
End 3 lib 

Private Sub Command26__ C11 ck ( ) 
Call TntPrewipe_Init_Off 
End Sub 

Private Sub Command27_Cl ick ( ) 

'Intaglio Prewipe mode: Auto 

If MachineRunning* » 0 Then 

IntaglioPrewipeControl* = 2 
frmPOOIntaglio! Label 18. Visible « True 
frmPOOIntaglio !Label20. Visible « False 
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frmPOOIntaglio - 4 

frmPOOIntaglio !Label21. Visible = False 

VarChangeFlag* (38) - 1 

If IntaglioPrewipeManual* <> 0 Then 
IntaglioPrewipeManual* « 0 
frmP00Intaglio!Label22. Visible - False 

End If 

frmPOOIntaglio ! Command29 . Enabled « False 
End If 

End Sub 

PH vate Sub Comma nd28__Cl i ok () 

'Intaglio Prewipe mode: Manual 

If MachineRunning* «= 0 Then 

IntaglioPrevripeControl* = 1 
frmP00Intaglio!Label20. Visible = True 
frmP00Intaglio!Label21. Visible = False 
frmP00Ihtaglio!Labell8. Visible - False 
f rmPQ 0 In taglio !Command2 9. Enabled = True 
VarChangeFlag*{38> = 1 

End If 

End Sub • 

PH vahe Sub Command 2. 9__Cl 1 ok M 

Ca 11 TnfcPrewi p «_Ma n__T o gg 1 e 
End Sub 



* . Pri va te Sub Comma nd 3 1 _C1. 1 ck { ) 

•Set Wiping re winder to auto 
WipingWinderEnaft « 2 
. frmPOOIntaglio! Label 57. Visible = False 
frmPOOIntaglio !Label7 .Visible = False 
frmPOOIntaglio! Label 5. Visible - True 

End Sub 

.Private Sub Comma nd 32__CT i ok ( ) 
Ca 1 1 Tnkerl ni p_Man_Togg1 e 
End Sub 

PH vafce Sub Commands 3_C1 i ok ( ) 

Cal 1 TntTnker2_Tn1 t._Of f 
find Sub 

Pri vat e Sub Command 3 4_Cl 1 ok ( ) 

'Intaglio Inker #2 mode: Auto 

If MachineRunning* - 0 Then 

IntaglioInker2Control* « 2 
frmPOOIntaglio ! Label 32 .Visible 
frmPOOIntaglio !Label33. Visible 
f rmPOOIntaglio !Label34. Visible 
VarChangeFlag*(35) = 1 
IntaglioInVer2nip& — 0 
IntaglioTnker2Manrun ft - 0 
f rmPOOIntagl io ! Label 4 1 .Visible 
frmPOOTntaglio!Label4 5. Visible 



True 
False 
False 



False 
False 
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i r miMiti i » 1 1 i » « — *t 

rriiM*uiiTrif i r\ » i~Mtn»M»*nf I'Sri 7»M»«'lMfi — hV»~» vt»-i 

End Sub 



Ttii Htil i c»T|iV m r s\~rw\* r m*i — " 

r r iiit*uiiTni in 1"^)im1 a Vi ^! "n^ m — 7r mm 

r r ttil'imTn i Mtj'i t m I 7.<hmm1 LA . Vi « ) }}1 ** — TT^Iw** 

Fr mpnnT til ^.iji i n '^o."in*^»«.^3^. Enabled — Tc».»** 
End. It 



Private 5u b Comma nd J ( i__t; I l <t ie M 
Call fnker? ru nj«1a n_Tog g 1 e 

Private Sub Command 37_C1 i c:'* «' 1 
Ca 1 1 TnkftrJInip Man Togw 1 e 
End Sub 

Private Sub Command 3 0_C] i ck M 

Wjpipg rewind*?' 1 '» '*T 

I: mPOOT u L a g 1 i o ! L*b~ 1 r ^ . v k s i b\ ~ - T'.ue 
• £rr«P0<tTnl-rtglio?IjctbpI*7 .vj m lb?*- - F*!xe 
trrmPOOTntaglj." ! LdhH r» . Vi s U»2 - F*l*« 

End Sub 

Frivate Sub Comma ndGJMouse Down ( Button As -Integer, Shift: As Integer, X As single, Y As Single) 4 , 
End Sub 

4 

Private Hub Comma nd6_Mous el Ip I Button As Integer. Shift As Integer, X As Single- Y As Single) 

ProductCalP.errsa - ^1 
VarChangeFlag%(24) - 1 

End Sub 

Private Sub Comma nd7_MouseDown ( Button As Integer, Shift As Integer, X As Single, Y As Single) 

WipingCalP.eqS* - Tru« 
VarChangeFlayft(25) - 1 

End Sub 

Private Sub Comma nd7_Mous el Jp I Button As Integer, Shift As Integer, X As Single, Y As Single) 
WipingCalReqS* « Fa ls»i 
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i r niPimTtii <*tj i i 1 1 — A 

End Cus 

K i ivnl.c liuLf r"w I 111 ii«sviic»wH I ii«wilwu« Ae» ilil.csURi/ liii 1 it- An ilit.cs\J«i i 

End 5h!d 

rl I vn t.cr ItXitJ MilKcso i i 1 1 1./AJ L1j «' I ilk i i 

V< aIC c cFg Clio \i fc ' Cni-Lci ID 

T- 1 1 1 1 T m r «-* m i i f 1 1 rnr***?: *» 'pfMU«< r pmmh i i thrift iri 

i r iriJu r »^4i i Vi*<ir%i»* — TriiH 

i rin]JriJ*ri ITm« i-1 Tmvi — "** : i* i r rill ( imj 



f rinUji^ri «^ i_ir\ i ^ — Tr MM 

i r iiKf wirl t T»- * i "t TV « » — "** 1 1 **** r mii i I ** » 



End Cut 

t'rivdte Hub Slide i: l_Change( i ■ • 

! Maiiu<ai Speen v*1u** Inker ffl 

t nut- 0 01 u tag 1 i o 1 MhPed i Inpu 1 1* Ten b - I x. ml- 0 01 n c agli o ! S lictei 1 « Va 1 u e 
VarCiiangeFiao* ( 31) ,1 

End Sub 

iTiodtft sub Slideri^hfrmief ) 
'Auto Sp**tri fc*cim Tiik^r if i 

rrn»POnT n h^giio»MriPealIp.putI .Tex*- — t crL»r*f>iyr n r*rj I io ! Slider 2 J m~ 
VrirChai'O^Fj.ay V* (30) - I . . -,v 

2nd Cub . 

r I Wni.e littU o i J vl«l J__Ch<alivJ« « i 

" m ».l J (i .^tMMn' i r t ill T»iw**r Ij ✓ 

f r mPrit-iTu t \ i ft 1 ntiUMrf » T m £ -»i M 3 *P***i — r r Mi7*rii*"iT n r nrj I * ». » ! 3 .1 .i r^t? r . V* "i 1 

End Sitfc * 

ri »v«ucr iiuti IJ i t tier i ■? v^iioilUc i * 

■ phh 1 1 1 1 1 Ar\*-»t^#i 1 1 1 1-« TnitMr §7 

i~ r Mir»fmTiif ««ril i ft t miiMMrfl Ttmlii, n T**v,i — " r ihi^miiT ri i "» i t\*Z't 1 #■?»- r #1 V-» "•••*-' 
"wV« r i~m urtuiTl i| 3 t J — "J 

End S *I*S 



15 



WO 03/082574 



PCT/US03/09267 



i r inT'iiTiTfli mij i x t% — » 

: v*t i i m tat i Mft-> r ummm i i rim w«4 i hm i m »i i vn I w 

i fiiiT'OuTri i hm itfi iW»it« m«i i Truuii 7 T»-» w i — i r nir-iiriTni ^ij 5 i • ^ J w»m r : t V*i i »M 

2nd Cufc 
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frmFOOFlexo • 1 
Option Explicit 
Private Sub Comma ndl__Cli ck ( ) 

Call Newflle 
End Sub 

Private Sub Command! 0__Click () 

ExitPOOFlexo 
End S ub 



Private Sub Command! l_Click ( ) 

•Flexo Impression mode: Manual 

If MachineRunning* = 0 Then 
FlexoImpsControlfc = 1 
frmPOOFlexo! Lab e!2. Visible = True 
frmPOOFlexo !Labell. Visible = False 
frmPOOFlexo! Label 6. Visible = False 
frmFOOFlexo !Command2 2. Enabled = True 
VarChangeFlag%{39) « 1 

End If 

End Sub 

Private Sub Coinmandl2_Click( ) 

'Flexo Impression mode: Auto 
If MachineRunningfc - 0 Then 
FlexoImpsControlS =» 2" 
frmPOOFlexo !Label6. Visible » True 
frmPOOFlexo t Label 1 .Visible •= False 
frmPOOFlexo !Label2. Visible = False 
VarChahgeFlag%t39) ~1 
If FlexoImpsManual* <> 0 Then 

FlexoImpsManualS = 0 

frmPOOFlexpiLabellS .Visible « False 
End If 

frmPOOFlexo !Command22. Enabled = False 
End I f 

End Sub 

Private Sub Command 13_Cli ck ( ) 

•Flexo Impression mode: Off 
If MachineRunning% - 0 Then 
Flexo Imps Control* » 0 
f rmPOO Flexo t Label 1. Visible » True 
frmPOOFlexo !Label2. Visible - False 
frmPOOFlexo !Label6. Visible « False 
VarChangeFlag%(39) = 1 
If FlexoImpsManual* <> 0 Then 

FlexoImpsManual* = 0 

frmPOOFlexo !Labell3 .Visible » False 
End If 

frmPOOFlexo t Command 2 2 . Enabled = False 
End If 

End Sub 

Private Sub Command! 4 Click () 
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friar CCFleXG 2 

'Toggle the Cutoff Unit Enable 
If Machir.eP.unning? = 0 Then 

If Cutoff Enabled - 0 Then 'We're offline 

fnaPOOFlaxoSLabellC.DackCoior = &IICCFF0C 

Cutoff Enable % » 1 

Else 

fnnFOGFlexc : LabeilG . Da.ckCoior - &HC0FFFF 
Cutoff Enabled » 0 
End -If 

VarChangeFlag* (28 ) - 1 
End If 

End Sub 

Pri vate Snh Comma nH 1 7_C.l i ok <) 

'Toggle the guard bypass switch 
If Guards Bypassed* » 0 Then 

Guards Bypassed* « 1 

f nuFOCFIexo : Lab e!3G .Visible = True 

Else 

GuardsBypassed'* « 1 < 
fr2iF0CFlexo!Label3C. Visible « False 
End If 

End Sub 

Private Sub Commanrll RjMouaeDown /Rut ton A« Tnterrer, Shi r> As Tnt-pgpr ; X As Sinnlp, V As Si nrjl e)* 

'Clear ALL calibration flags . l -\ 

MachineCalibratedS = 0 
friuFC0FIexoiLabel37. Visible = True 

End. Sub 

Privarf* Sub Command! fl_Mou*eUp (Button As Tnhpger. Shi -Ft- As Tnregpr, X As Single, Y A« Single) * 
•Turn' off light 

f rmFOOFlexo I Label 3 [7 .Visible = False 
End Sub 

Pri vate Sub Command! <*_C1 i ok ( ) 

'Set System Mode to Combination mode 
If MachineP.unning* = 0 Then 

SysMode% » 2 

IntlnfeedEnable^ = 1 

Int3huttleEnable% = 1 

IntOufcfeedEnable* = 1 

IntChillrollEnable* » 1 

IntWipingEnable* - 1 

VarChangeFlag»{4) « 1 

fnuTOCFlexo! Label 40 .Visible = True 

frmPOOFlexo ! Lab e!41. Visible = False 

fnuFOOFlexc! Label 42. Visible » False 
End If 

End Sub 

Private Snb Command? ClifiVO 

Call Openfile 
End Sub 

Private Sub Comma rxrl 4 ? () Cli r-k M 
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1 Set System Mode to 1 
If MachineP.ur.rsir.g* - 




VarChar.geFlag* 4 } - 1 
fr^GCFlexo* Label 42 .Visible - True - 
frmFCCFiexc:La£el4I. Visible - False 
frxsFCCFlexc!Label4C. Visible - False 
If 



1 Set System Mode to Intaglio only 
SysMode* - 1 ^ 

IntCutfeedEnable'l - 1 
IntCnillrCrilEnableo - 1 
Ir.tWipir.gEr.able* « 1 
VarChar.geFlag* ( 4 ) - 1 
frr«FGGFlexG; Label 41. Visible - True 
fiTuFGOFlexo J Label 42. Visible •= False 
fziuFCCFlexotLabel4C. Visible = False 
End If 



'Flexo Imps manual control 
C.al 1 Fl pxnTmps_Man|_Togn1 ^ 

End Sub 

Pri Suh Command ?5_T.l irW) 

■Toggle the Numbering Unit Enable 
If MachineP.unning* = 0 Then 

If HumberingEnable* = 0 Then 'We're offline 

f nuFCCFlexc \ Labell3 . CackCcioi: » &HG0FF00 

NumberingEnable* = 1 

Else 

f miFCOFlexc 1 Lab ell 3 . DackColor "= 5.II0 OFFFF 
NumberingEnable* = 0 
End If 

VarChangeFiag»{2"7) * 1 
End If 

End Sub 

Privahe Suh r.ommHnH?fiJ.1 i r.k M 

fn&Fr ess run : Glider 1 .Value = f naPr ess run! Slider 1. Value I 10 
friuFOOFlexG ! Glider 1 .Value « f nn* ressrun ! Glider 1 . Value 

End Gub 

Privafp Sub r.omm*nH97 P.l I r-k {) 
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4 

•Tuyyltt the DiecuLUinu Unit Enable 
If Kdu!iix&«P.wuu.(iy* - 0 Then 

I£ Di--uLLi:ioEu:ible* - 0 Then 'H-i'ia -£Xlii:e 
>tLaneii:,,BackCoiGr - 
• - 1 




End Gun 

Prix/A*-^. Rnh rv>mmAnrl** r.l i rk { J 

Call Gaveriie 
End Gun 

zr*iuxressrun : Gilder 1 . Value - f rsiFressrun 5 Glider! . Value . 1C 

> ' Glider! . Value - f naTres s run J Gilder 1 . Value 



2nd Gun 

PH vahP Rnh rnmnwnH4^m i r-k- { ) 

Call GaveAsFile 
End Gun 

Private Sub ExitPOOFlcscO 
Diiu I£ 

POOFlexotrsce* «=» 0 'Clear return path 
fnuFCOFlaxn. Visible - False 
f nnMsin ! Textl . Text j - '.'Standby" 

End Gun • 

PHvAfrf Suh Form KpuHnum {JC^yr.oH^ A.«s Tnhpa^r. <5h-i f r A« Tnhprrpr) 

If KeyCode - £H70 Then Call Mewfile 

If KeyCode = £H71 Then Call Open file 

If KeyCode - £H72 Then Call SaveFile 

If KeyCode « *H73 Then Call SaveAsFile 

If KeyCode - £H79 Then Call ExitPOOFlexe 



Private Sub Ncw£ilc() 

'This procedure initialises all variables for a new 
'job. 

Dilu I'o 

WhcseFocus* - 2 'Tell Apad to co 
POOFIexotrsce* «= 1 'Return path 

frsLApad! Text 1. Text - nn 
.Visible » True 

End Gun 
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• l - -.p -'J ITer.L a . T^y L - " 



w 

! 7«lsf prttuadti: « KdveH Lite 'jyir.e!il jvb ptoiiia tistLsi Lu =i 



ii^4?=id . Vis ibi s - Tiu- 



Private Sub SavoFilc;} 

'This pibc^dure Lire -uiitiiiL job pioliie L6 di.sk 

Dim I'o 




- 2 ' Caiien ID 
t«u«* - 1 'L^esa i«i?t!iL i«ut)Ui 
r^tN-dd . Visible - Tiuti 



End Sub 



Pr i fii tV. Mh 1 T nnnh 6_r.1 i rV / ) 

wnoseFocuoi - ^ ' CaiioZ ID 

POOFl-x -jL—j^ - 2 1 liiLnyliv :^it £*«»-«& 
CiuiNp-i ITexLl .T-r.L - 'Cle-r bu££e£ 
End 3u£, 
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trnTOOFlexo ■• & 

trmPr ess run I Slider 1 .Value = trmFU'jriaxc ! Slider 1 .Value 
End 3ub 

Private ou& TextVJLItiange ( J 

'Update other scieww speed lieid 

i nnTr ess run STextb. Text * tzinF UUFlexol Text Text 
Fnal status : Text -V . Text - tnaPO a Flexo : Tex w . Text 
UutPOOIrit^yJ j « !T«.-.Lb . Text - i rs&QCFJ e.w ITer.tb .Tex'. 

End cur. 
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f rmMain 1 

Option Explicit 

Private Sub Beginlstatus ( ) 

f rmMain JTextl. Text =» "Interlocks" 

FrmI status .Top « f rmMain , Top + 1890 
Frml3tatus.Left = f rmMain. Left + 30 
Frmlstatus. Visible = True 

End. Sub 

Private Sub BeginPres s Running ( J 

fnaM&lnlTextl.Text » "Run statistics" 

f rmPressrun. Top - frmMain.Top + 1890 
frroPr ess run. Left - frmMain-Left + 30 
frmPr ess run. Vioible = True 

End Sub 

Private Sub BeginParameter { > 

If (SystemStatus* And 9) - 0 Then 'Not if we're in RUN or Pause 

f rmParam. Top - frmMain.Top + 9925 

f rmParam. Lef t « f riot-Iain. Left + 30 

frmTaram. Visible - True 

fnaTassW. Visible = True 
End If 

End Sub 

Private Sub BeginProduction ( ) 

If Parara_tbl$(993, 2) = "0" Then 

FrmProduction , Top — frmMainiTop + 1890 
FnnProduction.Left = frmMain.Laf t +30 
FrinProduction.yisible «= True 
< 

frmMainlTextl.Text = "Production Data" 
End If 

End Sub 

Private Sub Begins e tup Fl exo ( ) 

If Param_tbl$(989, 2) = "0" Then 

f rmMain !Textl. Text - "Flexo setup" 

f rmPOOFlexo . Top *» f rmMain . Top + 1890 
f rmPOOFlexo. Left = f rmMain. Left +30 
f rmPOOFlexo. Visible = True 

End If 

End Sub 

Private Sufe BeginSetupIntaglio {) 

Tf Param_tblS(989, 2) - "0" Then 

f rmMain 1 Text!. Text - "Intaglio setup" 

f rmPOOIntaglio.Top - f rmMain. Top + 1890 
frmPOOIntaglio.Left - f rmMain. Left + ?n 
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frmMain - 2 

frmPOOIntaglio. Visible « True 
End If 
End Sub 

Private Sub BeginUtilities () 

frmMain! Text 1. Text » "Utilities" 

frmUtils.Top - frmMain. Top + 1890 
fnn.Utils,Laft = fraiMaln.Left + 30 
fnautils. Visible » True 

End Sub 

Private Sub Command l_Cli ck () 

BeginPress Running 
End Sub 

Private Sub Command! (\_Click ( ) 

BeginParameter 
End Sub 

Private Sub Command2__Click { ) 

BeginP reduction 
End Sub 

Private Sub Command3_Click () 

Begin Setup Intaglio 
End Sub ; 
Private Sub Comma nd4_Click { ) 

BeginSetupFlexo * 
End Sub 

Private Sub Comma nd 5jC 1 i ck ( ) 

BeginI status 
End Sub 

Private Sub Comma nd9__C lick ( ) 

BeginUtilities 
End Sub 

Private Sub Fo rm_Key Down t KeyCode Aa Integer, Shift As Integer) 

If KeyCode = &H70 Then BeginPress Running 
If KeyCode = *H71 Then BeginProduction 
If KeyCode - £H72 Then BeginSetupIntaglio 
If KeyCode - &H73 Then Begir.SetupFlexo 
If KeyCode = *H*74 Then Beginlstatus 
If KeyCode » *H78 Then BeginUtilities 
If KeyCode = SH™ Then BeginParameter 
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f rmMaln - 3 
End Sub 

Private Sub Form_Load ( ) 
Ca] I Init_System 

Ca3 1 PLC_Fi rstscan * Initialize PLC regl Ptera '* 
End Siab 

i 

Private Sub Timerl_T liner ( ) 

»This is the motion delay timer 

•Used to warn operator of press movement - 2 seconds 

Startdelay* « 2 'Set the start delay flag 
frssMain ! Timerl . Enabled = False 

End Sub 

Private Sub Timer2_Timer ( > 
Dim I* 

1% «■ SysPowerCheck* ( ) ' Test Servo power status 

1% - AutoExec*() 'Call Master System RUN processor 

End Sub 

Private Sub Timer3_Timer ( ) 

•This is the one second update calls; primarily updating 
'.graphics on the operator console. 

Call Update_product ion_scr een 
Call Updatejpressrun_screen 

End Sub 

■ Private Sub .Timer4 — Timer ( ) 

• 'Long term updates; to Disk, etc. happen here 
•Timer is set for one minute updates 

Call WriteCounters 
Call SaveRolldata 

End Sub 

Private Sub Timer5_Tiroer ( ) 

•This timer calls the PLC Scan routines. Loop time needs to be 
■in the neighborhood of lOmS. 

Call PLC__Scan 

End Sub 

Private Sub Timer6_Timer { ) 

•This timer is used to create a ride-thru time. It * 3 the time that 
•motion can be re-initiated after a stop. 

Ride t h rude lay* - 0 'Clear the "ait flag 
frmMain! Timer C. Enabled = False 
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frctttaln - 4 
End Sub 
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Frmlstatus - 1 

Option Explicit 

Private Sub CommandlO_Click ( ) 

Call Exitlstatus 

End Sub ' » 

Private Sub Exitlstatus () 

Frml status. Visible = False 
frmMain. Text 1. Text = "Standby" 
f rmMain. SetFocus 

End Sub 

Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer) 

If KeyCode = &H79 Then Call Exitlstatus 
End Sub 

Private Sub Timer l_Timer ( ) 

Call UpdatellockDisplay 
End Sub 

Public Sub UpdatellockDisplay () 

•This procedure reads the appropriate status information and 
'updates the display .. Timer set to refresh once per second. 

If PIiC_I%(48) - 0 Then 'Unwinder Web break status 
Frml status !Mh3dLab ell. FillColor = &HFF 'Red 
Else 

Frmlstatus I Mh3dLabell. FillColor - &H80FFQ0 'Green 
End If . 

If PLC_I%{49) = 0 JFhen 'Flexo Web break, status 
Frmlstatus !Mh3dLabel2,FillColor = &HFF 'Red 
EJ.se i 

Frmlstatus !Mh3dLabel2. FillColor = &H80FF00 'Green 
End If 

If PI»C_I%<50) = 0 Then 'Intaglio infeed Web break status 
Frmlstatus lMh3dLabel3.FillColor =' &HFF 'Red 
Else 

Frmlstatus ! Mh3dLabel3 . FillColor « &H80FFOO 'Green 
End If 

If PLC_I%{17) = 0 Then 'Intaglio outfeed Web break status 
Frmlstatus I Mh3d£abel 4. FillColor = £HFF 'Red 
Else 

Frmlstatus !Mh3dLabel4. FillColor « &H80FFOO 'Green 
End If 

If PLC_I%(51) - 0 Then 'Chill Web break status 
Frmlstatus ! Mh3dLabel5 . FillColor = &.HFF 'Red 
Else 

Frmlstatus !Mh3dLabelS. FillColor = &H80FF00 'Green 
End If 

If PLC_I%<S2) 0 Then 'Diecut Web break status 
Frmlstatus !Mh3dLabel 6. FillColor - £HFF 'Red 
Else 

Frmlstatus !Mh3dLabel6. FillColor =» &H80FF00 'Green 
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Frmlstatus - 2 
End If 

If PLC_I*(41) - 0 Then 'Numbering Web break status 
Frmlstatus !Mh3dLabel7. FillColor » &HFF 'Red 
Else 

FrinIstatusiMh.3dLabel7. FillColor - &H80FFOO 'Green 
End If ' 1 

If PLCJEM18) = 0 Then 'Sheeter Web break status 
Frmlstatus !Mh3dLaber8. FillColor « &HFF 'Red 
Else 

Frmlstatus !Mh3dLabel 8. FillColor = &H80FF00 'Green 
End If 

If PLC_I%<19) = 0 Then 'Wiping Web break status 
Frmlstatus !Mh3dLabel32. FillColor = &HFF 'Red 
Else 

Frmlstatus !Mh3dLabel32. FillColor « &H80FF00 'Green 
End If 

If PLC_Ift(44) = 0 Then 'Sheeter Jamup status 

Frmlstatus !Mh3dLabel 9. FillColor = &HFF 'Red 
Else 

Frmlstatus !Mh3dLabel9. FillColor = &H80FF00 'Green 
End If 

If PLC_I%(44) - 0 Then 'Folder Jamup status 

Frmlstatus tMh3dLabell0. Fill Color = &HFF 'Red 
Else 

Frmlstatus lMh3dLabell0 . FillColor - &H80FF00 'Green 
End If 

If PLC_I%(53) <> 0 Then 'Unwinder Core sensor status 
Frmlstatus !Mh3dLabell4. FillColor >= &HFF 'Red 
Else 

Frmlstatus lMh3dLabell4 . FillColor = &H80FF00 'Green 
End If 

If PLC_I%(20) <> 0i Then 'Splice detector status 

Frmlstatus I Mh3kLabell5. FillColor p &HFF 'Red • 
Else 

Frmlstatus !Mh3dLabell5 . FillColor « &H80FF00 'Green 
End If 

If PLC_I%{28) <> 0 Then * Shuttle motor #1- overtemp status 
Frmlstatus !Mh3dLabell6. FillColor = &HFF 'Red 
Else 

Frmlstatus !Mh3dLabel 16. FillColor = &H80FF00 'Green 
End If 

If PLC_I%(29) <> 0 Then 'Shuttle motor #2 overtemp status 
Frmlstatus !Mh3dLabell7 . FillColor = &HFF 'Red 
Else 

Frmlstatus !Mh3dLabell7: FillColor « &H80FF00 'Green 
End If 

If PLC_I%<0) <> 0 Then 'System ESTOP status 

Frmlstatus I Mh3dl»abel 18. FillColor = &HFF 'Red 
Else 

Frmlstatus !Mh3dLab el 18. FillColor = &H80FF00 'Green 
End If 

If PI»C_O%(0) <> 0 Then 'Unwinder Dancer position status 
Frmlstatus !Mh3dLabell9. FillColor = &HFF 'Red 
Else 

Frmlstatus !Mh3dI*abell9. FillColor = &H80FFOO 'Green 
End If 
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Fnnlstatus - 3 



If PLC_ I%(54) = 0 Then 'Delivery Piler Dovm LS status 
Frmlstatus tMh3dLabel20. FillColor » &HFF *Red 
Else 

Frmlstatus !Mh3dLabel20. FillColor = &H80FF00 'Green 
End If 

i 

If (0 « 0) Then 'At least one entry in perf table? 
Fnnlstatus !Mh3dLabel31. FillColor 83 &HFF 'Red 
Else 

Frmlstatus !Mh3dLabel31. FillColor « &H80FF00 1 Green 
End If 

If PLC_I%{45) = 0 Then •Intaglio guard status 

Frmlstatus !Mh3dLabelll. FillColor = &HFF 'Red 
Else 

Frmlstatus !Mh3dLabelll. FillColor = &H80FF00 1 Green 
End If 

If PLC_I%(46) = 0 Then 'Numbering guard status 

Frmlstatus !Mh3dLabell2. FillColor - &HFF 'Red 
Else 

Frmlstatus !Mh3dLabell2. FillColor » &H80FF00 'Green 
End If 

If PIiC_ I%{47) « 0 Then 'Sheeter guard status 

Frmlstatus !Mh3dLabel 13. FillColor = &HFF 'Red 
Else 

Frmlstatus !Mh3cLLabell3 . FillColor » &H80FF00 'Green 
End If 

If PLC_O%(0) = 0 Then 'Machine Power status 

•.Frmlstatus !Mh3dLabel21- FillColor' = &HFF !Red 
Else ' 

Frmlstatus !Mh3dLabel21. FillColor » &H80FFOQ 'Green 
End If . 

If PLC_6%(39) - 0 Then 'Product Vacuum Blower status 
Frmlstatus !Mh3dI.abel2 2. FillColor &HFF 'Red. ' 
Else !:•''' 

Frmlstatus !Mh3dLabel22. FillColor « &H80FF00 'Green 
End If ' * 

If PLC_O%(40) 0 Then 'Wiping Vacuum Blower status 

Frmlstatus I Mh3dl»abel23. FillColor = &H80FFFF 'Yellow 
Else- • 
Frmlstatus !Mh3dLabel23. FillColor = &H80FFOO 'Green 

End If 

If PLC_I%(21) = 0 Then 'Hydraulic Pressure status 
Frmlstatus !Mh3dLabel25. FillColor = &HFF 'Red 
Else 

Frmlstatus !Mh3dLabel2 5. FillColor - &H80FF00 'Green 
End If 

If PLC_0%{41) = 0 Then 'Scrap Blower status status 

Frmlstatus !Mh3dLabel2 6. FillColor » &H30FFFF 'Yellow 
Else 

Frmlstatus !Mh3dLabel2 6. FillColor => &H80FFOO 'Green 
End If 

If ProductCalibratedS = 255 Then 'Product Calibrated 

Frmlstatus !Mh3dLabel30. FillColor « &HFF8080 ;Blue 
Else 

Frmlstatus !Mh3dLabel30. FillColor » &HE0E0E0 'Gray 
End If 



29 



WO 03/082574 



Frrolstatus - 4 

If WipingCalibrated% =255 Then 'Wiping Calibrated 

FnaIstatus!Mh3dLabel31.FillColor = &HFF8080 "Blue 
Else 

FrmIstatus!Mh3dLabel31.FillColor = 6HE0EQE0 'Gray 
End If 



End Sub 
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f'T'' <Sn'n TV MSi^r* *<• O/s *»»r<* 1 / V 

r,«!ni -, JU mwrTu ^i ?.nMr^,nrM,,i ,„iia, _ 

r , ...n i -,jw i pyrTu - i 9 . vi « i ki « _ tt-i«^ 

End 

^»-n>r>< »g« inw^r^^l 1 .VI -* 

End if 

•»-._ -I 

Tf TTr-aKl uR^ofPr,! 1 < s Tr Mfl Then 

f r mni j,r*p i r»Mr>Pc.r«< n-O 1 . nM/*rp^.i l r.o"* - rr 1 1 e»- — F.-*l*e 
End If 

•Tf rh«» r»*-*-»*»*- «»f. r vf> wi ndw w*?» on?", 1*-. 
f ^n? ^ inMr.T»r«^ ? .Vi .<?lb? ? - ^-u* 
*rmDi«gs »T*MCT*»rr^ n^l ? -DM^Poll Control l~r = Tee 
Enftbl~Hoe*-Po"mr<g?& - False' 

f rmDiags 1 PMCTermlnai2 . DMC?ol ICon t r~ll e r =» False 
f rraDi age «r*fCTermir.s 12, Visible - False 
En able«ost Polling?* - True 
End If 

End Sub ' . . ■' .£ 

Private Sub C-on™anHl_ciic*: { ) 

InitBForce 
End Sub 

Private Sub ConroandlO_Click ( ) 
End Sub 

Private $vp CtonniMidllJCliclcP 

•Danger: Stops all system timing ! ! ! 

f EZuKain f Tilucir2 • Enabled Fdiac 

f rxtirXain i TlXu&r J • Er.oivJ.ecl F«ii&e 

£ intirlain * T j T'' ct i! 4. - E n ctblcd Fcti «2 €j 

f rm.D* ftgs 'Label ?4 .VI sible — True 
f rmDiags ! Labels 1 -Visible *» False 

End Cub 
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Accc £ s 3 CiTC 
End 3u£ 

Private- Sub CoiBmand4_Click { \ 
Bic^icFLC 

End 3ufc ! < 

Private Sub C&auemd5_jCjLickO 

EnafcloFLC , 
End 3u£ 

rciv^te Rub Fojn^KcyDo^D { EeyCode A* Ip*-^3f«?r 7 "hi ft A* Integer) 
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sis I'C 

For I'i 'J T~ 'J 

r Mv r»; -..j- .wcfiu.,*.. .jM (Tvj vis 

Fcr I'i " Tc v 



-i^ ±-\ j-\ .v\ «£ 



j -- - i_c£r vro^i. . -rcxr, - i) : rhir i= rhe channel if 



I'i 

K% ~ 'Tia±c will rcrcc error 
End It 

It -Pi ■'- 0* 7ind 1 Tiion 



1*0 y 
. / - End it 

-Bad It : 
* . It- IS - U ffiisn 



Tsntl-Tost 
End It 

Tcsstl . VlsiEr_U F«i±sc 
•End It 
End It 

End 3ut • 

End 3un 

L-iir. a/- 

_ r. :7„ii l„ ". 

, t «. ■**• t#» v- :t„„«, « 
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End it 
Nczt l*i 

End 3 lib 

'Enofcic PLC 

; r R ,r.; M .jw ;7.-t.-: 7J,.-r; — ~-iw^ 

End 3ufc 

" n v« m : n » r r. r ■ o • • ? •.: ; ; 
•Dickie rr.c 
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frmCcnfig - 1 
Option Explicit 
Private Sub CoaaRandl_Click { ) 
Call KtaWliie 

End Sub * } 

Private Sub CoxnmandlO_Click {} 

ExitCcnfig 
End Sub 

Private Sub Cocuaandll_Click () 
1 IP adjust negative 0.001 

frmCcnfig!MhPwalInput5.Tc::t - f rffiConf ig 'MhRcallnput 6 . Text - 0.001 

i 

End Sub 

Private Sub Ccmiaandl2_Click{) 

1 Update the IP calibration 
If frmConfig! Label2 .Visible - True Then 
IP_offset# » 0 

f rztCcnfig !MhRealInput5 . Text « 0 
Va r Change Flag ^ (41) - 2 
f rmCcn fig! Lab o 12 .Visible « True 
End XL 

End Sub 

Private Sub Cojnmandl2jEouseDow*( Button. .As Integer., Shift As. Integer,. X As Single, Y As Single)"-. 

If fri^onfig'LabsieA'isibib -.JPrue then . 

frraCohfig-'Itabetl^.Visibie- - True 
End If 

i 

End Sub 

Private Sub Commandl2_MouaeUp (Button Aa Integer,. Shift As Integer, X As Single, Y As Single) .. 

frmConfig!Labell2 .Visible - False 
End Sub 

Private Sub Comma ndl3_Click ( ) 

VarChangeFlagS (50) - 1 

'Clears the product calibrate flag 

End Sub 

Private Sub Coiumand2_Click() 

Call Openfile 
End Sub 

Private Sub Command2S_Click ( ) 
■IP adjust posative 0.050 
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frmConfig - 2 

frmCenfigiraiRcallnpute.Tcxt - frmCcnfig ! HhRcalInp-.it 6. Tent + 0,05 
End Sub 

Private Sub Cou™.and29_Click { ) 

■IP adjust negative 0.050 'i 

frmCcnfig !MhP*oalInput 6. Tent - f rtr£onfig!MhRcaITnputS.Te;:t - 0.05 

End Sub 

Private Sub Comn\sr.d3_Click { ) 

Cull SaveFile 
End 5ub 

Private Sub Command30_Click { ) 
1 IP adjust pesative 0.001 

frrnConfig l MhRcaiInput6,Tcy.t - f rmConfig !MhRcaiInput5 .Tc;:t H- 0.001 
End Sub 

Private Sub Commands l_Click ( ) 

f IiiiLiaixzfea Lh*ci IT calibration 
IP_offset# » 0 

frmCcnfig !MhRcalInput6. Text - 0 
VarChangcFlagS (41) - 1 
frxnCcnfig!Labcl2.Vicible - ?ruc 

, End Sub 

Private Sub Cozan&and4_Click{) - 

Call SavaAsFil© | » . 

End Sub 

Private Sub ExitConfig.O * 
Dim lo 

Ccnfigtraco* • 0 * Clear return path 
frmConfig. Visible - False 
frmMain!TcKtl.Text - "Standby" 

End Sub 

Private Sub Forio^KeyDown (KeyCode As Integer, Shift As Integer) 

If KeyCodc - S.H70 Then Call Hewfile 

If KeyCcde - SH71 Then Call Openfiic 

If KeyCcde - &H72 Then Call SuveFile 

If KeyCcde - SK73 Then Call SavcAsFiic 

If KeyCcde - sH7? Then Call Exit Co a fig 

End Sub 

S-rivaze Sub NewfileCJ 

'This procedure initialises all variables fcr a new 
•job. 
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frmConf ig - 3 
Dim I'i 

WhocoFocU3$ «* 5 'Tell Apad tc come back to us 
Configtrucc? - 1 'Return path 

frmApad! Text 1, Text - «" 
frmApad. Visible - True 

End Sub 

Private Sub Cpcnfiic () 

'This procedure loads an existing job profile from disk 
Dim T% 

Whose Foe lie?- - 5 'Tell Apad tc come back tc us 
Ccnfigtracc* = 2 'Return path 

frmApad' Text 1. Text - Mn 
frmApad. Visible - True 

End Sub 

* 

Private Sub SaveAsFile () 

'This procedure saves the current job profile data to a 
! uaui defined filename. 

Dim II 

WhcseFocucS - 5 'Tell Apad to come back to us 
Config traced - 4 'Return path 

frmApad! Text 1. Text - hl * 

frmApad. Visible - True , . - 

End Sub', . . : I*/- . 

Private Sub SaveJTiieO 5 

'This procedure saves the current job profile to disk 

Dim I*i 

14 - SaveJobdatat {) 
End Sub 



Private Sub MhRealXhputlJ_Click ( > 

WhoaeFocua'C — 5 'Colieii ID 
CcnfigtracoS - 9 'Cutoff window end 
frmHpad. Visible - True 
f rmNpad! Tex tl. Text - nn 'Clear buffer 

End Sub 

Private Sub MhP.ealInputlOj_Click { ) 

WhoaeroGuso « 5 'Callex ID 

Ccnfig traced - 5 'Intaglio window end 

frmKpjid, Visible « True 

frmtfpad ! Text 1 .Text - " " 'Clear buffer 

End Sub 
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f rmConfig - 4 



Private, Sub MhP.eftlInputX2_Click { ) 

WuoaeFocuaS = S * Co-ller ID 
CcnfigtracoS ■* 7 'Diccutting window end 
frmNpad. Visible - True 

frmNpad'Tentl .Text - Wtt * Clear buffer '» 
End SaL 

Private Sub MhP.ealInputl5__Click O 

Whobtirouuat = 5 * Caller ID 
Configtracc*' ~ 10 'Begin winder torque 
frmNpad. Visible - True 
frmNpad! Text 1. Text - t,n 'Clear buffer 

Slid 3uL 

Private Sub MhRe allnput 1 6_Cl A c k O 

WhoafctFocua'i — 5 'Caller ID 

Ccnfig trace* - 11 'End winder torque 

frxnNpad. Visible - True 

fratNpad! Text 1, Text - " n 'Clear buffer 

End Sub 

Private Sub MhRealInput3_Click {) 

wiioaeFocus'6 •=■ 5 T Caller ID 
ConfigtraceS — 4 'Intaglio window begin 
frmNpad. Visible - True 
frrrtfpadi Text 1. Tent - nn 'Clear buffer 

Eud Sub 

Private Sub KhRea 1 Input 4__Cl i ck { } 

WhoseFocusti - 5 'Ciller ID 

Config traced « 6 'Diocutting window begin 

frmNpad. Visible =» True 

frmNpad! Text 1- Text - nn 'Clear buffer 

End Sub 

Private Sub MhRealInput5_Click ( ) 

WkouuFoouat, = 5 'Caller ID 
Conflgtraee* - 6 'Cutoff window begin 
frmNpad. Visible = True 
frmNpad? Text 1. Text « 'Clear buffer 

Eud Sub 

Private Sub MhReal Input 6_Ch any e { } 
'KandU- IP calibration changes 
Dim I#, J# 

•7# = frip.Config IMhF.eal Input 6. Text - IP_^f £set# 'Magnitude of change 
IP Move 5 * » MasCPI!{7) + -T# 'Convert to counts 
Va l Ch .mg c Fi ag <r ( 4 2 } - I 'Make the ehange 
I P_of £« •? t # — f rinCon fig ! 2*hP.e«l I np ut6. Text 

Enu Sub 
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Private Sub MhRealInput7_Click O 

WhoseFocusS. = 5 ' Callax ID 
Configtrace* » 1 1 System circumference 
frmNpad. Visible « True 
frmNpad'TextliTcxt « " w 'Clear buffer 

End Sub 

Private Sub MhReal Input 8_Cli ck O 

WhoscFocusc - 5 * Caller ID 

Configt raceS « 2 » Numbering circumference 

frmNpad. Visible = True 

frmNpad! Text 1. Text « 'Clear buffer 

End Sub 

Private Sub MhPealInput9_Click ( ) 

WhoaeFocust = 5 'Caller ID 

Configt raceS = 3 'Cutoff circumference 

frmNpad. Visible « True 

frmNpad! Text 1. Text - nn 'Clear buffer 

End Sub 
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frmApad - 1 

Option Explicit 

Private Sub Commandl_Click ( ) 

frmApad! Text 1. Text - frmApad ! Text 1 .Text & n 6" 
End Sub 

Private Sub CommandlO_Click ( ) 

f rmApad !tfextl. Text » f rmAp ad! Text 1. Text & "4" 
End Sub 

Private Sub Commandll_Click { ) 

frmApad! Text 1, Text » frmApad ! Text 1 .Text & w 5" 
End Sub 

Private Sub Commandl2_Click 0 

f rmApad !Textl. Text =■ f rmAp ad! Text 1. Text & "1" 
End Sub 

Private Sub Commandl3_Click ( ) 

frmApad! Text 1. Text = frmApad! Text 1 . Text & M 2" 
End Sub 

Private Sub Commandl4__Click ( ) 

frmApad! Text 1. Text - f rmApad! Text 1 .Text & n U* 
End Sub 

Private Sub CommandlS Click { ) 



f rmApad !Textl. Text =» frmApad ! Text 1 . Text & "Y" 
End Sub 

Private Sub Commandl6 Click () 



End Sub 

Private Sub Commandl7_Click ( ) 

f rmApad! Text 1. Text - f rmApad! Text 1 .Text & "R" 
End Sub 

Private Sub Commandl8_Click ( ) 

f rmApad !Textl. Text « 'frmApad! Text 1. Text & "E" 
End Sub 

Private Sub Commandl9_Click ( ) 

frmApad! Text 1. Text « frmApad! Text 1. Text & "W" 
End Sub 




f rmApad ITextl. Text =* frmApad! Text 1. Text & "T n 
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f rmApad - 2 

Private Sub Coromand2_Click ( ) 

f rmApad !Textl. Text =» f rmApad ! Text 1 .Text & n 7 w 
End Sub 

Private Sub Command20_Click { ) 

f rmApad! Text 1. Text = f rmApad ! Textl . Text & tt = n 
End Sub 

Private Sub Command21_Click ( ) 

f rmApad! Textl. Text = f rmApad! Textl .Text & 
End Sub 

Private Sub Command22_Click ( ) 

f rmApad! Textl. Text - f rmApad! Textl .Text & n P" 
End Sub 

Private Sub Command23_Click () 

f rmApad! Textl. Text - f rmApad! Textl .Text & "O" 
End Sub 

Private Sub Comma nd2 4_C1 i ck () 

f rmApad! Textl, Text = frmAp ad! Textl .Text & "I w 
End Sub 

Private Sub Command26 Click () 

f rmApad! Textl. Textl « frmApad!Textl .Text & "A" 
End Sub ( 
Private Sub Command27_Click { ) 

frmApad! Textl. Text = f rmApad! Textl. Text & "S M 
End Sub 

Private Sub Command28__Click ( ) 

frmApad! Textl. Text = frmAp ad! Textl. Text & "D" 
End Sub 

Private Sub Command29_Click { ) 

frmApad! Textl. Text *= frmApad! Textl .Text & "F M 
End Sub 

Private Sub Command3_Click () 

frmApad! Textl. Text - frmApad! Textl. Text & "8" 
End Sub 
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f rmApad - 3 

Private Sub Command30_Click{) 

f rmApad! Text 1. Text » f rmApad! Text 1. Text & "G" 
End Sub 

Private Sub Command31__Click ( ) 

f rmApad! Text 1. Text f rmApad! Text 1. Text & n H w 
End Sub 

Private Sub Comraand32__Click () 

f rmApad I Text 1. Text - f rmApad! Text 1. Text & "J n 
End Sub 

Private Sub Coramand33_Click ( ) 

f rmApad! Text 1. Text » frmApadlTextl. Text & n K" 
End Sub 

Private Sub Command34_Click ( ) 

f rmApad STextl. Text - frmApadlTextl .Text & "L" 
End Sub 

Private Sub Command36 Click () 

Apad_Text$ - frmApadlTextl .Text 
f rmApad. Visible « False 
Call ProcessData 

End Sub 

Private Sub Command4_CjLick() 

f rmApad ITexjbl. Text ■> f rmApad ! Textl . Text & n 9 n 
End Sub 

Private Sub Command40jClick ( ) 

frmApadlTextl. Text - f rmApad ! Textl . Text & n : w 
End Sub 

Private Sub Command41_Click ( ) 

f rmApad! Textl .Text » frmApadlTextl. Text & 
End Sub 

Private Sub Command42_Click ( ) 

frmApadlTextl. Text - f rmApad! Textl. Text & n , u 
End Sub 

Private Sub Command43_Click ( ) 

frmApadlTextl. Text - frmApadlTextl. Text & "M" 
End Sub 
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f rmApad - 4 

Private Sub Command44_Click () 

f rmApad! Text 1. Text = f rmApad! Text 1. Text & "N" 
End Sub 

Private Sub Command45_ Click {) 

f rmApad ITextl. Text « f rmApad! Text 1. Text & n B n 
End Sub 

Private Sub Command4 6_Click ( ) 

f rmApad! Text 1. Text = f rmApad ITextl. Text & "V" 
End Sub 

Private Sub Command47_Click () 

f rmApad! Textl. Text *= f rmSpad! Text 1 .Text & "C w 
End Sub 

Private Sub Command48_Click ( ) 

f rmApad! Text 1. Text » £ rmApad! Text 1. Text & M X" 
End Sub 

Private Sub Command49_Click ( ) 

f rmApad ITextl. Text =»f rmApad! Textl. Text & W Z" 
End Sub 

Private Sub Command5_Click(V 

f rmApad ! Tex 1 1 . Text! = f rmApad ! Textl . Text & n Q rt 
End Sub 

Private Sub Commands 5 jCli ck { ) 

f rmApad! Textl. Text = f rmApad! Textl. Text & n n 
End Sub 

Private Sub Command 6_Click { ) 

f rmApad! Textl. Text = f rmApad! Textl .Text & "Q" ' 
End Sub 

Private Sub Comma nd7_Click ( ) 
Dim 1% 

1ft - Len(f rmApad! Textl. Text) 

If 1% < 1 Then Tl «■ 1 'Prevent underflow. 

f rmApad! Textl. Text » Lef t$ (f rmApad! Textl . Text, Ift - 1) 

End Sub 

Private Sub Command9 Click () 
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f rmApad - 5 

frmApad! Text 1. Text =» f rmApad ! Text 1 .Text & "3" 
End Sub 

Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer) 
Dim Ifc ' ; 



If KeyCode - 8 Then 

1% =» Len (frmApad. Text 1, Text) 

If IB < 1 Then IS = 1 'Don't underrun the buffer 
frmApad. Text 1. Text = Left$ {frmApad » Textl . Text, 1% - 1) 

Else 

If KeyCode = &HD Then 'Did they press Enter key 
ApadJText$ » frmApad ! Textl . Text 
frmApad. Visible = False 
Call ProcessData 

Else 

frmApad! Textl. Text ■ frmApad 'Textl .Text & Chr$ (KeyCode) 

End If 
End If 



End Sub 

Private Sub ProcessData C) 

'This routine handles the incoming data 
Dim 1% 

Select Case WhoseFocus% 'This is the ID of the calling routine 

Case i«***> calls from frmPressrun * * * * 

\ 

Case 2 ' * * *.* Calls from frmPOOFlexo * * * * 
Select Case PQQFlexotraceS 

Case 3 'Returned with filename for Job Open 

If Apad_Text$ <> " tt Then 'Did we get a value 
frmMain.Text6.Text » Apad_Text$ 
1% = LoadJobdata% ( ) 
End If 

Case 4 'Incoming filename for SaveAs 
If Apad_Text$ <> "*• Then 'Value??? 
frmMain.Text6.Text = Apad_Text$ 
1% » SaveJobdata% () 
End If 

Case 5 'Filename for Newfile function 
If ApadJText$ <> " w Then 'Value??? 

frmPOOFlexo. Textl. Text - Apad_Text$ 
1% » NewJobData% ( ) 
End If 



End Select 'End of Case 2 
Case 3 1 * * * * Parameters calls * * * * 
frmPtable.MSFlexGridl.Text » Apad_Text$ 
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Case 4 ' * * * * Production calls * * * + 
Select Case Eroductiontrace* 

Case 2 'This is the operator ID 

If Apad_Text$ <> w " Then 

FrmProducti on. Text! .Text = Apad_Text$ 
f rmMain . Text2 . Text = Apad_Text$ 

End If 

End Select * End of Case 4 

Case 5 1 * * * * Calls from frmConfig screen * * * * 
Select Case Configtrace% 

Case 1 'Filename for Newfile function 

If Apad_Text$ <> Then 'Value??? 

frmMain.Text6.Text = Apad_Text$ 

1% = NewJobDataS ( ) 
End If 

Case 2 1 Returned with filename for Job Open 

If Apad_Text$ <> nn Then 'Did we get a value 

frmMain.Text6.Text = Apad_Text$ 

1% - LoadJobdataS ( ) 
End If 

Case 4 'Incoming filename for SaveAs 
If Apad_Text$ <> ,,n Then 'Value??? 

frmMain.Text6.Text = Apad__Text$ 

1% = SaveJobdata% () 
End If 

End Select 'End of Case 5 
Case 6 ■ * * * * Calls from frmPOOlntaglio 
End Select 
End Sub 
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: General 
: 20-Oct-00 
: AIODRV.BAS 
: VI. 0 
: -00 

: 25-Oct-00 

: Joseph B. Schutte III ' * 

Industrial light & Motion, Inc. 
2170 Van Blaricum Rd. 
Cincinnati OH 45233 USA 

Copyright (C) 2000 Industrial Light & Motion, Inc. 

Revision History 

Ver/Edit Edit date Who Reason 



This module handles the I/O mapping through the AIO 
card. Two primary operations are supported: 

'Aiolnit - Sub that initializes the AIO board and 
f working variables. 

'AioInS(x) - Function that returns the value of an 

» input defined by x. (NOT SUPPORTED IN THIS CARD) 

'AioOut (x, y) -Sub that sets the Output defined by X to 

1 the value y (bipolar) . 



ModuleS - 1 

• Program 
'Creation date 
'Module 
'Version 
'Edit 

'Edit date 
'Author 



Analog Output assignments 



Channel Description 

0 Main Drive velocity command 

1 Wiping Drive velocity command 

2 Wiping Rewinder velocity command 

3 Intaglio Inker #1 velocity command 

4 Intaglio Inker #2 velocity command 

5 Product Rewinder velocity command 
;6 Not aspigned 

7 Not' assigned 



Global AnOut%{128) 'Analog OUT image registers 
Global Anln%{128) 'Analog IN image registers 

Const IobaseAddrS =» &HEF00 'This is the hardware base address 
Const IoCalAddr% = &HE800 'This is the address of calibration reg 

Declare Function MhlnpByte Lib "MhMu32.DLL" _ 

(ByVal Port As Long) As Byte 

Declare Function MhlnpWord Lib "MhMu 3 2 . DLL " _ 

(ByVal Port As Long) As Long 

Declare Sub MhOutByte Lib n MhMu32 . DLL" _ 

(ByVal Port As Long, ByVal Valu As Byte) 

Declare Sub MhOutWord Lib "MhMu 3 2 . DLL" _ 

t *""* (ByVal Port As Long, _ 

— -^-^ • * ByVal Valu As Integer) 



Function AioIn% (AddrS) 
Dim Id 

'Read the Analog Input register 
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'This function not supported in this version software 
! I% « MhlnpByte (Addr%) 'Read the Hardware input 
End Function 

Public Sub Aiolnit ( ) ' * 

•This routine initializes the Analog output board, additional code 
•will be placed here to support Analog inputs. 

Dim 1% 

1% « MhlnpByte (IobaseAddr% + X0) 

'This read sets the card to Automatic update mode 

1% = MhlnpByte (IobaseAddr% + 15) 

'This read unrestricts the output voltage range 

For 1% - 0 To 8 

Call AioOut(I%, 0) 
Next X% ;' 

End Sub 

Public Sub AioOut (Channel*, NuVal%) 
Dim H%, L% 

AnOut% (Channel%) » NuVal% 'Save the original value 

If NuValo > 2047 Then NuVal% « 2047 
If NuValfc < -2047 Then NuVal% » -2047 

Call MhOutWord(IobaseAddr% + (Channel% * 2), NuVal% + &H800) 
End Sub 
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Module4 



Program 
Creation date 
Module 
Version 
Edit 

Edit date 
Author 



General library module 

19-Oct-93 

SERVODRV.BAS 

V3.0 

-01 

26-Sep-00 

Joseph B. Schutte III 
Industrial Light & Motion, 
2170 Van Blaricum Rri. 
Cincinnati OH 45233 USA 



Inc. 



Copyright <C) 1993-2000 Industrial Light & Motion, Inc. 



'Revision History 




1 Ver/Ed 

'V3.1-01 

'V3.0-00 


Edit date 
22- Sep- 00 
02 -Jan- 00 


Who 

JBSIII 

JBSIII 


'V2.1-02 


27-Oct-99 


JBSIII 


'V2.1-01 
•V2.0-00 
'VI. 0-01 


10-Jul-97 
12-Feb-97 
23-Aug-94 


JBSIII 
JBSIII 
JBSIII 



Reason 

Mod code to access DMC-1080's (dual) 
Revamp code to support 2100 series and dual 
motion processors, and various bugs 
Minor mods to support Ethernet based 
2100 series controllers ; 
Add Boot Galil boot loader 
Major upgrade 32 bit / Win95 & NT 
Sense Estop & Reinit 



Option Explicit 
Function CmdServolS (S_command$) 
Dim 1%, A$ , 

frnMain.DMC^helll.DMCCommand » S_command$ 

A$ » LeftB$ (frmMain.DMCShellliDMCResponse, 1) 

If A$ = Then 

CmdServol% 53 -1 'Error occurred 
i Else 

; CmdSer'vol^ =* 0\ 'Transaction OK 
End If ' I 

End Function • 

Function CmdS;ervo2% (S_coramand$) 
Dim 1%, A$ 

frmMain.DMCShell2.DMCComraand = S_command$ 

A$ = LeftBS (frmMain.DMCShell2.DMCResponse, 1) 

If A$ = »?" Then 

CmdServo2% = -1 'Error occurred 

Else 

CmdServo2S = 0 'Transaction OK 
End If 

End Function 



Function Gets ervoEr code IS (SelAxisS) 

* Get the Motion status of the specified Axis ( Processor A ) 
Dim 1%, J% 

1% = CmdServolS ("TC") 'Servo status command 

If Z% <> 0 Then 'We received an error 
1% = -1 'Error flag 
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End If 

Get ServoEr code lft = 1% 
End Function 

Function GetServoErcode2% (SelAxisS) 

1 Get the Motion status of the specified Axis ( Processor B ) 
Dim 1%, J% 

1% = CmdServo2% ("TC") 'Servo status command 

If 1% o 0 Then 'We received an error 
1% = -1 •Error flag 
Else. . - • 



find If * - - . .. -* 

GetServoErcode2% = 11 
End Function 

Function GetServoStatusfc (SelAxisfc) 

* Get the Motion status of the specified Axis 
Dim Z%, J% 

Select Case SelAxis^f ' Vector to the .requested Axis' ■ . . 

Case 0: X% = GmdServoI% ( n SC X") •Axis 0 
Case 1: 1% = cJndServal%'(' t SC X n ) 'Axis 1 
Case 2: 1% » CmdServolS ("SC a") 'Axis 2 
Case 3-; IS. =» CmdServolS ( * r SC W") 'Axis 3 
Case 4: 1% =» CmdServol% ( "SC E") 'Axis 4 
Case 5: 1% = CmdServol* {"SC F") 'Axis 5 
Case 6: 1% = CmdServol% ("SC G") 'Axis 6 
Case 7: 1% — CmdServol% ("SC. H") 'Axis 7 
Case 8: 1% - CmdServo2% ("SC X?) 'Axis 8 
Case 9: IS = Cm<iServo2% ("SC Y B ) 'Axis 9 
Case 10: Z% = CmdServo2ft ("SC Z") '"Axis 10 
Case 11: 1% - CmdServo2% ("SC W") 'Axis 11 
Case 12: 1% =» CmdServo2% ("SC E w ) 'Axis 12 
Case 13: 1% = CradServo2% ( "SC F") 'Axis 13 
Case 14: 1% = CmdServo23 ("SC G") 'Axis 14 
Case 15: 1% = CmdServo2% ( "SC H") 'Axis 15 
Case Else: 1% =* -1 

End Select 

If I ft <> 0 Then 'We received an error 
1% - -1 'Error flag 
Else 

If IS <= 7 Then 

J% = InStrd, frmMain.DMCShelll.DMCResponse, Chr$(13J) 'Find the delimiter 

1% = CInt (LeftB$ (frmMain.DMCShelll.DMCRespbnse, J% - 1) ) 'This is the returned statu 

s from servo 

Else 

J% =» InStrd, frmMain.DMCShell2.DMCResponse, Chr$ (13) ) 'Find the delimiter 
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It = CI nt(Le f tB $ (fr I pMa i n.PM C SheU2.DMC R esponse, J* - D > 'TMa is the returned statu 

s from servo 

End If 
End If 

GetServoStatus* =1% 
End Function 
Sub InitPhaseO 

'Set the Encoder and Motor phase here per Parameters 

Dim 1%, CT%, K%, L$, M$, N$, 0$, Enc%, Mtr% 

^ 
ft 

... 

I I 

r I 

I 



P 



J" 



If K% <> 0 Then 'We have a command error 
MotionSystemStatus* - 255 'Fault flag 
.MsgBox («?Cmd Error during INIT-Phase - & Str$(I%)) 
End If 

Next IS 

End Sub 

Function InitServo%() 

Dim base_jaddress%, 1%, J%, Kft 
1% = 0 



I 
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Testbypass*: 
End Function "' ' * 

Sub LoadGalilTuning ( ) 

1 Initialize the Servo Gain Parameters 



Dim 1%, J%, K%, Lft 

L% = CInt{Param_tbl$ (10, 2)) 

For 1% =^To -{h% - 1) 'All axes *mSF\ 
If X^<= 7 .Then 

£ (i% + 1) * 100' 'Base address for ? parameters 
*e ^ 

(1% -fc 3) * 100 'Base address with »J$.p to .upper addr 




'K% « WriteServoCmdS (1%, "GN", Param_tbl$ ( J% 

K% - WriteServoCmd%(I%, "IT", Parara_tbl$ < J% 

K% = Writes ervoCmdfc (1%, "VT", Param_tbl$ ( J% 

K% » Wr±teServoCmd%(I%, "FA", Param_tbl$ 

K% = WriteServoCmd* (1%, "AC", Param_tbl$ ( J% 

K% « WriteServoCmd%(I%, "DC", Param_tbl$ (J% 

K% « WriteServoCmd%(I%, "FV", Param_tbl$ ( J% 

K% = WriteServoCmd% (1%, "KP", Param_tbl$ {«J% 

K% = WriteServoCmd% (1%, "KI", Param_tbl$ ( J% 

K% =» Wr±teServoCmd%(I3, "KD", Param_tbl$ 

K% = WriteServoCmd%(I%, "PL", Param_tbl$ { J% 

K% - WriteServoCmdS (1%, "IL", Param_tbl$ < J% 

Next I* 

End Sub 

Function ReadServoDataf (SeJJ&isS, OpCode$) 



+ 16, 
+ 17, 
18, 
19, 
20, 
20, 
27, 
13, 
14, 
15, 
33, 
34, 



2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 



•Load GN 
•Load IT 
•Load VT 
•Load FA 
•Load Accel 
•Load Decel 
•Load FA 
'Load KP 
'Load KI 
'Load KD 
•Load PL 
•Load IL 
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•Routine issues command to Servo and returns string response 

* Get the Motion status of the specified Axis 
Dim 1%, J%, 0$ 

0$ =» Mid? ("XYZWEFGHXYZWEFGH", SelAxis% + 1, 1) 'Parse out the axis .ID 
If SelAxisfc <= 7 Then 

1% = CmdServol% (OpCode? & 0$) 'Axis 0-7 

Else 

1% = CmdServo2% (OpCode? & 0$) 'Axis 8-15 
End If 

If J% O 0 Then 'We received an error 

ReadServoData? « 'Error flag ; ; ^ 

Else ', . 

If SelAxisfc <« 7 Then 

J% = InStrU, f rmMain. DMCShelll.DMCResponse, Chr$(13)) 'Find the delimiter 
Else • ; 

J% - InStrU, f rmMain. DMCShell2.DMCResponse, Chr$ (13) ) 'Find the delimiter 
End If i 'i 

If J% <> 0 Then 'We received a message 
If SelAxis% <« 7 Then 

ReadServoData$ = LeftB$ (f rmMain. DMCShelll . DMCResponse, J% - 1) 'This is the xe^V* 
med status from servo ftl ; : /} !-f 

Else y 

ReadServoData$ = LeftB? (f rmMain. DMCShell 2 . DMCResponse, J% - 1) 'This is the xSjj-th).^ 
med status from servo ft2 'v!Ti- : ? 

End If ' .-/-^SiS 

Else 

ReadServoData? = nn 'Nothing to reply 
End If 
End If 

End Function ^ 
Function Sy s Power Che ck% () 

'Check Servo Power Supply Status 

Dim -0!%, J%, K%, IA, M$ 

If (PLC_I%{0) <> 0) Then 
SysPowerCheckfc - 0 

SystemStatus% = SystemStatusS Or SH100 'Power ON a. 

f rmMain !Labell. Visible « False 

Else 

SysPowerCheckfc =1 

SystemStatusS - SystemStatus* And &HFEFF 'Power OFF 
f rmMain ! Lab ell . Visible « True 
End If 

End Function t 
Function WriteServoCmd% (SelAxis%, OpCode?, Operand?) 

• Routine to send a general command to an Axis 

Select Case SelAxis% 'Vector to the requested Axis 

Case 0: WriteServoCmd% » CmdServolfc (OpCode$ & M X=" & Operand?) 'Axis 0 

Case 1: WriteServoCmd* = CmdServolfc (Opcode? & "Y=« & Operand?) 'Axis 1 

Case 2: WriteServoCmd* = CmdServol% (OpCode? & "Z=" & Operand?) 'Axis 2 

Case 3: WriteServoCmd% - cmdServolfc (OpCode? & "W= M & Operand?) 'Axis 3 

Case 4: WriteServoCmd% » CmdServolS (Opcode? & "e=" & Operand?) 'Axis 4 

Case 5: WriteServoCmdS « CmdServol% (Opcode? & "F=" & Operand?) 'Axis 5 
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Case 6: WriteServoCmd% = CmdServolS (OpCode? & "G= M & Operand$) 'Axis 6 
Case 7: WriteServoCmd% « CmdServol% (Opcode? & n H«" & Operand?) 'Axis 7 
Case 8: Writes ervoCmd% « CmdServo2$ (OpCode? & M X=" & Operand?) 'Axis 8 
Case 9: WriteServoCmd% » CmdServo2% (OpCode? & "Y=" & Operand?) 'Axis 9 
Case 10: WriteServoCmd% = CmdServo2% (OpCode? & M Z= M & Operand?) 'Axis 10 
Case 11: WriteServoCmd* = CmdServo2$ (OpCode? & "W« w & Operand?) 'Axis 11 
Case 12: WriteServoCmd% = CmdServo2% (OpCode? & "E?" & Operand?? •Axis 12 
Case 13: WriteServoCmd% = CmdServo2% (OpCode? £ "F 3 " & Operand? } 'Axis 13 
Case 14: WriteServoCmd% » CmdServo2% (OpCode? & M G*= n & Operand?) •Axis 14 
Case 15: WriteServoCmd% = OndServo2% (OpCode? & "H=" & Operand?) 'Axis 15 
Case Else: Writes ervoCmdfc = ~1 



End Select 



End Function 



Function WriteServoXcmdS (SelAxisfc, OpCode?) 

1 Routine to send a command to an Axis without data 
Select Case SelAxis% 'Vector to the requested Axis 



Case 0: WriteServoXcrad% 

Case 1: WriteServoXcmd% 

Case 2: WriteServoXcmd% 

Case 3: WriteServoXcmdS 

Case 4 : WriteServoXcmd% 

Case 5: WriteServoXcmdS 

Case 6: WriteServoXcmd% 

Case 7: WriteServoXcmd% 

Case 8: WriteServoXcmd* 



CmdServol%-(OpCode? & 
CmdServol^ (Opcode? & 
CmdServol% (Opcode? & 
CmdServolS (Opcode? & 
CmdServol% (OpCode? & 
CmdServol% (OpCode? & 
CmdServolS (OpCode? & 
CmdServol% (Opcode? & 
CmdServo2% (OpCode? & 
CmdServo2% (OpCode? & 



Case 9: WriteServoXcmd% 

Case 10; WriteServoXcmd% » CmdServo2% (OpCode? & 
Case 11: WriteServoXcmdS = CmdS'ervo2ft (OpCode? & 
Case 12: Writes ervoXcmd* « CmdServo2 % (OpCode? & 
Case 13: Writhe ServoX.cmd% = CmdServo2% (OpCode? & 
Case 14: Writes ervoXicmd* = CmdServo2% (OpCode? . 
Case 15: WriteServoXcmy%- = CmdServo2%- (OpCode? fi 
Case Else: 



X") 
Y") 
Z WJ ) 
W n ) 
E") 
F") 
G") 
H») 
X tt ) 
Y") 

■ 2") 
* W") 

■ E") 
» F") 



•Axis 

•Axis 

•Axis 

•Axis 

•Axis 

•Axis 

•Axis 

•Axis 

•Axis 

•Axis 
•Axis 10 
'Axis .11 
•Axis 12 
'Axis 13 
•Axis 14 
•Axis 15' 



0 ' 

1 

2 

3 

4 

5 

6 

7 

8 

9 



Wri,|ie5ervbXcind^ =■ -1 



End Select 



End Function 
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1 



End Sub 

Public Sub Load_app_variables ( ) 



'Routine downloads the application variables held in the parameter 
• file 



Dim 1%, J%, K% 
K% = LastAxisfc 

If LastAxisS >-7 Then 'Setup for split table read 
« 7 
Else 

K% = LastAxis* 
End If 



For 1% « 0 To K% 'Need to capture CPI's 

MasCPR! (1%) » CDbl(Param_tbl$ ({ (Ift + 1) * 100) + 2, 2)) ' 
MasCPI!(I%) - CDbl[Param_tbl$(((l% + 1) * 100) + 2, 2)) / CDbl (Param tbl$ ( { {X% + 1)* 



0) + 32, 2)) 
Next IS 



If LastAxisS > 7 Then 'Get the CPI's for the high # axis 1 



For 1% = 8 To LastAxisfc 'Need to capture CPI's 

MasCPR?(I«) « CDbl tParam_tbl$ (300 + (X% * 1Q0) + 2, 2)) 
* 100) + 32. M 2n PI!tI * ) ~ CDbl(Parain - t:b1 ^ 300 + <« * 100) + 2, 2)) / CDbl {Param_tbl$ (300 + (I* 
Next 1% - 
End If 

'MasCPI!(7) = MasCPR! (7) / CDbl (f rmSCsetup !MhRealInput4 .Text) 
'CPI based. on repeat length 



J% = 
J3 = 

. J% = 
J% = 
J% = 
J% ss 
J% = 
tf% » 
J% = 
•J% 
» J% 
' J% 
»J% 
»J% 
»J% 
»J% . 
'J% . 

j% » 
j$ » 
j% =» 



o 

J% + CmdServol* ("AxisAAC*" £ 
J% + CmdServol% {"AxisBAC*" 6 
J% + CmdServol* ("AxisCAC*" & 
J% + CmdServol% { "AxisDAC^" & 
J% + CmdServol% { w AxisEAO» n & 
J% + QndServo 1ft ("Axis PAC»" £ 
J% + CmdServol% ("AxisGAO*" $ 
J% + CmdServolft ("AxisHAC»" & 
■ J% + CrttdServo2%( M AxisIAC» w & 
88 J% + CrodServo2% ( "Axis JAO=" & 
= J% + CmdServo2% < , 'AxiaKAC»» , s 
= J% + CmdServo2% { "AxisIAC^" & 
= <J% + CmdServo2%("AxisMAC= w & 
* J3 + CmdServo2% ("AxisNAC=" & 
= J% + CtndServo2% ( tt AxisOAC= w « 
= + QndServo2%( w AxisPAC=" & 



Param_tbl$ {120, 2) ) 
Param_tbl$(220, 2)) 
Pararo_tbl$ (320, 2) ) 
Param_tbl$ (420, 2)) 
Param_tbl$(520, 2)) 
Param_tbl$(620, 2)) 
Param_tbl$(720, 2)) 
Param_tbl$(820, 2)) 
Param_tbl$ (1120, 2)) 
Param_tbl$ (1220, 2)) 
PararaJ:bl$<1320, 2)) 
Param_tbl$ (1420, 2)) 
Param_tbl$(1520, 2)) 
Param_tbl$ (1620, 2)) 
Param_tbl$ (1720, 2)) 
Param tbl$<1820, 2)) 



J% + CmdServol*("CPRA=" & Param_tbl$ (102, 2))" 'Counts per rev 

J% + CntdServol% ( "CPRB— " & Param_tbl$ (202, 2)) 

J% + CmdServolS ( n CPRC« M & Param tbl$ (302, 2)) 

J% + CmdServolS ( M CPRD~" £ Paranft-bl$ (4 02, 2)) 
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<J% =» tf% + CmdServol% ( n CPRE= M fi 
tf% m j% + CmdServol% ("CPRF=" & 
tf% « J% + CmdServol% ( n CPRG=" & 
J% =» J% + CmdServol%("CPRH=" & 
J%* => J% + CmdServo2% ("CPRDX* 
J% - J% + CmdServo2%( w CPRI=" & 
tf% - J% + CmdServo2% ( "CPRJ^" & 
J% = J% + CmdServo2%( H CPRK« ,t & 
tf% = J% + CmdServo2% ( , *CPRL=" & 
»J% o j% + CmdServo2%("CPRM= n 
'J% = tf% + QndServo2%("CPRN=" 
»J% = tf% + CmdServo2%("CPRO=" 
»J% = Jft + CmdServo2%{ n CPRP= M 



Param_tbl$(502, 2)) 
ParamJ:bl$(602, 2)) 
Param_tbl$<702, 2)) 
Param_tbl$ (802, 2)) 
& ParamJ;bl${802, 2)) 
Param_tbl${1102, 2)) 
Param_tbl$(1202, 2)) ' 
ParamJ:bl$(1302, 2)) 
Param_tbl$(l402, 2)) 
& Param tbl$(1502, 2)) 



fi ParamJ:bl$(1602, 2)) 
& Param_tbl$ (1702, 2)) 
fi Param tbl$(1802, 2)) 



•era 

• J% 
• 

■ J% 
' J% 
'J% 
•J% 

• J% 
'J% 

• J% 
* 

' J% 

• J% 



J% 
J% 
J% 
J% 
j% 
j% 

j% 

J9 
or% 
J% 
o% 
J% 
era 



CmdServol% 
CmdServol% 
CmdServol% 
CmdServol% 
GmdServolS 
CmdServol% 
CmdServol% 
CmdServol% 
CmdServo2% 
CmdServo2% 
CmdServo2% 
CmdServo2% 
CmdServo2% 
CmdServo2% 
CmdServo2% 
CmdServo2% 



("AHoffA-" 

( n AHoffB=" 

( n AHoffC=" 

<"AHoffD=" 

("AHoffE=" 

("AHoffF^-" 

( "AHof fG 53 " 

("AHoffH=" 

("AHoffl^" 

("AHoff 

( "AHof fK=" 

("AHof fL— " 

{ "AHof fM=" 

("AHof fN=" 

("AHoffO*"' 

( "AHof f P=»" 



& Parang 
& Param] 
& Param" 
& Param" 
s Param_ 
fi Param] 
& Param_ 
fi Param" 
& Param 
& Param 
fi Param 
& Param 
& Param 
& Param 
& Parain 
fi Param 



tbl$(106, 
*tbl$(2G6, 
tbl$(306, 
'tbl${406, 
"tbl$(506, 
"tbl$(606, 
"tbl$(706, 
"tbl$(8Q6, 
"tbl$ (1106, 
tbl$(12Q6, 
tbl$(1306, 
"tbl$(1406, 
~tbl$(1506, 
"tbl$(1606, 
"tbl$(1706, 
"tbl$(1806. 



2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2}) 
2)) 
2)) 



*ABS Home offsets 



» J% 

• J% 
>J% 

• J% 
*J% 

■ tf% 
«J% 

• Jft 
*J% 

• J% 

■ J% 
•J% 

• tf% 
•J% 
r J% 

• J% 

' J% 

• J% 
1 J% 

• J% 
»J% 
1 J% 
1 J% 

• J% 

• J% 

•j% 

• j% 
' j% 
' j% 

• j% 

• j% 
»j% 

j% * 
j% - 



era 
j% 
cr% 
j% 
j% 
j% 
s j% 
n% 
J% 
j% 
j% 
j% 
J% 
j% 
or* 

j% 
J% 
J% 
J% 
J% 
J% 
tf% 
J% 
J% 
> j% 
J% 
J% 
J% 
J% 
J% 



CmdServolS 
CmdServol% 
CmdServol% 
CmdServol% 
CmdServol% 
CmdServol% 
CmdServol% 
CmdServpl% 
CmdServp29 
CmdServp2% 
CmdServo2% 
CmdServio2% 
CmdServo2% 
CmdServo2% 
CmdServp2% 
CmdServo2% 

CmdServol% 
CmdServol% 
CmdServol% 
CmdServol% 
CmdServol% 
CmdServol% 
CmdServol% 
CmdServol% 
CmdServo2% 
CmdServo2% 
CmdServo2% 
CmdServo2% 
CmdServo2% 
CmdServo2% 
CmdServo2% 
CtndServo2% 



("HoSpA=" 
("HoSpB= w 
("HoSpC=-" 
("HoSpD=* rt 
( "HoSpE=* M 
{ "HoSpF^^ 
("KoSpG^" 
( tt HoSpH« w 
( rt H6Spr'= ,, 
( w HoSpJ= tt 
("HoSpK^" 
( "HoSpL=* w 
( M HoSpM= n 
("HoSpN^" 
( "HoSpO=" 
( rt HoSpP= n 

("HoSpzA^" 
( tt HoSpzB» n 
("HoSpzC^ 1 ' 
("HoSpzI>=" 
( n HoSpzE= rt 
( n HoSpzF^= rt 
("HoSpzG=" 
{ H HoSpzH= n 
( M HoSpzI=* n 
("HoSpzJ= n 
("HoSpzK= M 
("HoSpzE= w 
("HoSpzM«" 
("HoSpzN-" 
( "HoSpzO« M 
( w HoSpzP= M 



Param_ 
Param_ 
Parain 
Param_ 
Param 
Pararn^ 
Pararn^ 
Param" 
Param 
Param" 
Param] 
Param] 
Pararn 
Param 
Param 
Param" 



tbl$ (111, 
tbl$ (211, 
'tbl$(311, 
tbl${411, 
tbl$ (511, 
"t±>l$(611, 
'tbl${711, 
tbl$(811, 
"tbl$(llll, 
'tbl$(1211, 
"tbl$(1311, 
"tbl$(1411, 
"tbl${1511, 
"tbl${1611, 
"tbl$(1711, 
"tbl$(1811. 



2)) 

2>) 

2)) 

2)) 

2)) 

2>) 

2)) 

2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 



'Homing speeds 



fi Parang 
& Param] 
& Param] 
& Param 
& Param] 
s Parain 
fi Parain 
fi Param 
& Parain 
& Param] 
& Param] 
& Param] 
& Param 
& Parain 
& Param] 
& Param 



tbl$(112, 
tbl$(212, 
"tbl$(312, 
tbl$(4!2, 
tbl$(512, 
tbl$(612, 
~tbl$(712, 
tbl${812, 
"tbl$(1112 # 
"tbl$(1212, 
"tbl$(1312, 
"tbl$(1412, 
"tbl$(1512, 
"tbl$(1612, 
"tbl$(1712, 



2)) 

2)) 

2)) 

2)) 

2)) 

2)) 

2)) 

2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 
2)) 



1 Z Ref speeds 



tbl$(1812,* 2)) 



J% + CmdServol%( n CtWghtA'=" fi Str$ (MasCPI ! (0) ) ) 
J* + CtadServol*( n CtWghtB=* rt & St r$ (MasCPI ! (1) ) ) 



'Counts per inch 
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J% « J% + CmdServol% ("CtWghtC« n & Str$ (MasCPI » (2) ) ) 
J% » J% + CmdServol%( ,, CtWghtD=" £ Str$ (MasCPI ! (3) ) ) 
J% « J% + CmdServol%( w CtWghtE=" £ Str$ (MasCPI 1(4) ) ) 
J% = J% + CmdServol%("CtWghtF^ w £ Str$ (MasCPI ! (5) ) ) 
03 « J% + CmdServol%( n CtWghtG=" £ Str$ (MasCPI ! (6) ) ) 
J% = J% + CmdServol%("CtWgh£H= n £ Str$ (MasCPI ! (7) ) ) 
J% = J9 + CmdServo2%( n CtWghtI«" & Str$ (MasCPI ! (8) ) ) 
J% = J% + CmdServo2%( M CtWghtJ=" & Str$ (MasCPI ! (9) ) ) 
J% = Jft + CmdServo2%( w CtWghtK=" £ Str$ (MasCPI ! (10) ) ) 
Jft » J% + CmdServo2%("CtWghtL=" £ Str$ (MasCPI ! (11) ) ) 
•J% « J% + CmdServo2%("CtWghtM^" & St r$ (MasCPI! (12) ) ) 
•J% =« JS + CmdServo2%( n CtWghtN=" £ Str$ (MasCPI ! (13) ) ) 
•J% » J% + CmdServo2%("CtWghtO= w & Str$ (MasCPI! (14) ) ) 
*J% = J% + CmdServo2%( n CtWghtP=" & Str$ (MasCPI ! (15) ) ) 

J% ■ J% + CmdServol%( n JogSpeed= M £ Param_tbl$ (904 , 2)) 
J% ~ J% + CmdServo2% ( "JogSpeed=*" £ Parara_tbl$ (904, 2)) 
J% - J% + CmdServol% ( w ProdHoS* w & Param_tbl$ (908, 2)) 
J% = tf% + CradServo2% ( n ProdHoS*= n 5 Param_tbl$ (908, 2)) 
J% « J% + CmdServol% ( ,r V^autaonS» ,, £ Param_tbl$ (911, 2)) 
J% = J% + CmdServol* ( n WipVBraax»" £ Parara_tbl$ (922, 2)) 
J« = J3 + CmdServol%(°WlpeOrogS« w 5 Param_tbl$ (*925, 2)) 
J% = J% + CrodServol%("Ipwipcal= M & Param_tbl$ (927, 2)) 
tf% « J% + CmdServol%( w WipeHoS- w 5 Param_tbl$ (929, 2)) 
Jft « J% + CmdServolS ( "IPwipaut=" £ Param_tbl$ (930, 2)) 
CT% - J% + CmdServolfc ( M WVBegain=" £ Param_tbl$ (931, 2)) 
J% = J% + CmdServol% ( n WBcalof=" £ Param_tbl$ (932, 2)) 
J% » tf% + CmdServol%( ,, VB3nullP=> ,, £ Param_tbl$ (9^3, 2)) 
J% - J% + CmdServol%("VB4nullpa» & Param_tbl$ (934, 2)) 
j% - j% + CmdServol%( tt VBlnullP« w s Param_tbl$ (935, 2)) 
J% - J% + CmdServol%("VB2nullP»" £ Param_tbl$ (936, 2)) 
J% « J% + CmdServol% ( "IntMEmax^" & Param_tbl$ (.937, 2)) 
J%, « J% + CmdServol%C*IntMEgn= n 5 Param_tbl$ (938, 2)1 
J* = J% + CmdSorvol%( w IntVBraax= ,t & Param_tbl$ {939, 2>) 
Jft « J% + CmdServol%("IntVBgn«" 5 Param_tbl$ (940^ 2)) 
tf% » J% + CmdServol% ( "DieMEmax=" & Paraia_tbl$ (941, 2)) 

^ J% + CmdServol%( n DieMBgn^ n 5 Param_thl$ (942, 2)^ 
J% « J% + CmdServol% {"DieVBmax-" s Parara_tbl$ (943, 2)) 
J% *» tf% + CmdServo^%( w DieVB'gn=» ,r £ Pararo_tbl$ (944, 2)) 
tf& » J% + CrndSexvol% ( tt DieSave« M £ Param_tbl$.(945, 2)) 
J% = J% + CradServol% ( w DieSintv=" & Parara_tbl$ (946, 2)) 
0T% ^ <T% + CmdServoi&( w arVBmax=3" & Param_tbl$ (947, 2)) 
-J% » J% + CmdServol%( w arVBgn=" & Param_tbl$ (948, 2)) 
JS « J% + CmdServol% ( "VBlnullA^" & Param_tbl$ (949, 2)) 
J% « J% + CmdServo2%("Maxerr= M & Param_tbl$ (950, 2)) 
tf% « J% + CmdServol%{ M IixtLwin=»" & Paraiu_tbl$ (951, 2)) 
frmConfiglMhReal Input 3. Text = Param__tbl$ (951, 2) 
CT% « J% + CmdServol%( tt Intinwin^" $ Param_tbl$ (952, 2)) 
frmConfigtMhReal Input 10. Text « Param_tbl$ (952, 2) 
J% * J% + CmdServolS (^DieLwin=" $ Pararo_tbl$ (953* 2)) 
frmConfig!MhRealInput4 .Text = Param_tbl$ (953, 2) 
J% » J% + CmdServol% ( M DleUwin=>" £ Param_tbl$ (954, 2)) 
frmConf±g!MhRealInputl2.Text =» Param_tbl$ (954, 2) 
tf % = J% + CmdServo2% ( M CutLwin=" & Param_tbl$ (955, 2)) 
frmConflg!MhRealInput5.Text = Param_tbl$ (955, 2\ 
CF% « J% + CradServo2%("CutUwin« M £ Param_tbl$ (956, 2)) 
frmConfig.»MhRealInputl.Text » Param_tbl$ (956, 2) 
J% - J% + CmdServo2% ( "CutMEmax=»" £ Pararo__tbl$ (957, 2)) 
J% « J% + CmdServo2e ( "CutMEgn=» rr £ Param_tbl$ (958, 2)) 
J% ■ J% + CmdServo2%( M AxisX[7]» M £ Param_tbl$ (9S9,. 2)) 
J% « J% + CmdServo2% ("AxisY[7]=" £ Param_tbl$ (960, 2)) 
J8 =. jft + CmdServo2%( w Axls2[7J=" £ Param_tbl$ (961, 2)) 

JogSpeedft « Param_ tbl$ (904 , 2) 'Map for global use- 



If J% <> 0 Then 'Error loading variables 
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MsgBox ("?Error loading App variables") 
Else 
End If 

End Sub 

Public Function ReqServo$ (Command?, Processor*) *» 

•New function as of 12 -Jul- 97 to read data from the motion card. 
•Legal commands are passed through Command$ with the response 
'returned to the calling function. Errors return null string 

Dim 1% 

ReqServo? = w " 

Select Case Processor* 

Case 0 * First processor 

X% = CSndServol% (Command?) 'Request the data 
1% = InStr(l, f rmMain !DMCShelll. DMCResponse, Chr$(10)) 
If 14 o 0 Then 1% = 1 'Return null if IxF not found 
ReqServo$ - Mid? (f rmMain ! DMCShelll. DMCResponse, 1, 1% - 1) 

Case 1 1 Second processor 

1% » CmdServo2% (Command?) 'Request the data 
1% - InStr(l, f rmMain !DMCShell2. DMCResponse, Chr? (1Q) ) 
If 1% - 0 Then T% = 1 'Return null if LF not found 
ReqServo$ » Mid$ (f rmMain »DMCShell2. DMCResponse, 1, 1% - 1) 

End Select 

End Function 
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General 

21-Oct-94 

EIODRV.BAS 

V2.0 

-00 

12-Feb-97 

Joseph B. Schutte III 
Industrial Light & Motion, Inc. 
2170 Van Blaricum Rd. 
Cincinnati OH 45233 USA 



Copyright (C) 1995-2000 Industrial Light & Motion, Inc. 
Revision History 



Program 
Creation date 
Module 
Version 
Edit 

Edit date 
Author 



Vex/ Edit Edit date Who 

V2.0-01 10-Oct-OO JBSIII 

V2.0-00 12-Feb-97 JBSIII 

VI, 5-00 . 19-Jun-95 JBSIII 



Reason 

Mod addresses for PCI card 

Major upgrade 32 bit / Win95 & NT 

Add Scanlnputs and ScanOutputs subroutine 



This module handles the I/O mapping through the PIO , 
card* Four primary operations are supported; 

Piolnit - Sub that initializes the PIO board and 

working variables . 
PioIn%(x) - Function that returns the condition of an 

input defined by x. 
PioOut (x,y)~Sub that sets the Input defined by X to 
the value y ( 0 or 1} • 

ScanPLCInputs - Sub reads all inputs and stores in array PLC_Imap% () 

(. 

StrobePLCOutputs — Sub writes contents of PLC_Qmap% < ) to the- 
discrete outputs. 

Global OutImage% ( 10 ) * Image of Output registers here 
Global PLC_I%{128) 'PLC discrete input registers 
' Global PLC_I_Last%,(128) 'Track the values on the last, scan 
Global PLC_Ofc(128) 'PLC discrete output registers 

Const IobaseAddr% » &HEF80 'This is the hardware base address 

Declare Function MhlnpByte Lib "MhMu32 . DLL" _ 

(ByVal Port As Long) As Byte 

Declare Function MhlnpWord Lib "MhMu32.DLL" 

(ByVal Port As Long) As Long 

Declare Sub MhOutByte Lib "MhMu32.DLL" J" 

{ByVal Port As Long, ByVal Valu As Byte) 

Declare Sub MhOutWord Lib "MhMu32 . DLL" _ 

(ByVal Port As Long, _ 
ByVal Valu As Integer) 

Function PioIn% (loChannelS) 
Select Case IoChannel% 



Case 0: pioInS 

Case 1: PioInS 

Case 2: PioIn% 

Case 3: PioIn% 

Case 4: PioInS 

Case 5: PioIn% 

Case 6: PioIn% 



ReadPIO% (IobaseAddr% 


+ 


0, 


1) 


' PLC 


Input 


#0 


"ReadPIO% (IobaseAddr% 


+ 




2) 


1 PLC 


Input 


#1 


ReadPIO% (IobaseAddr% 


+ 


o, 


4) 


* PLC 


Input 


#2 


ReadPIO% (IobaseAddrS 


+ 


o, 


8) 


"•PLC 


Input 


#3 


ReadPIO* (lobaseAddr* 


+ 


o, 


16) 


'PLC Input 


#4 


ReadPIO% (IobaseAddrS 


+ 


o, 


32) 


1 PLC Input 


#5 


ReadPIOS (lobaseAridrft 


+ 


o, 


64) 


'PLC Input 


#6 
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Case 7: PioIn$ » ReadPIO% (IobaseAddr% + 0, 128} ■ PLC Input #7 

Case 8: PioIn% =» ReadPIOS (IobaseAddr% + 1, 1) * PLC Input #8 
Case 9: PioInS « ReadPIO% (IobaseAddr% + 1, 2) * PLC Input #9 

Case 10: P±oIn% = ReadPIO% (IobaseAddx* + 1, 4) 'PLC Input #10 

Case 11: PioIn% = ReadPIO* (IobaseAdcic% + 1, 8) 1 PLC Input #11 § 

Case 12: PioIn% - ReadPI0% (IobaseAddr% + 1, 16) ' PLC Input #12 

Case 13: PioIn% = ReadPIO% (IobaseAddrS + 1, 32) * PLC Input #13. 

Case 14: PloIn% « ReadPIO% (IobaseAddr% + 1, 64) 'PLC Input #14 

Case 15: PloIn% = ReadPIOS (IobaseAddr% + 1, 128) 'PLC Input #15 

Case 16: PioIn% « ReadPIO% (IobaseAddr% + 2, 1) 1 PLC Input #16 

Case 17: PioInS » ReadPIO% <IobaseAridr% + 2, 2} 'PLC Input #17 

Case 18: PioIn% = ReadPIO% (IobaseAddr% + 2, 4) 1 PLC Input #18 

Case 19': PioIn% = ReadPIO% tlobaseAddx* + 2, 8) 'PLC Input #19 

Case 20: Pioln* <= ReadPIO%.(IobaseAddr% + 2, 16) 'PLC Input #20 

Case 21: PioIn% = ReadPIO* <IobaseAridr% + 2, 32) * PLC Input #21 

Case 22: PioIn% - ReadPIOS (IobaseAddr% + 2, 64) 'PLC Input #22 

Case 23: Piolnfc = ReadPIO% (lobaseAddr* + 2, 128) 'PLC Input #23 

Case 24: PioIn% = ReadPIOfc (IobaseAddr% + 4, 1) 'PLC Input #24 

Case 25: PioIn% ■ ReadPIO* (IobaseAddr% + 4, 2) 'PLC Input #25^ 

Case 26: PioIn% = ReadPIO% (IobaseAddr% + 4, 4) 'PLC Input #26 

Case 27: PioIn% - ReadPIO% (IobaseAddr% + 4, 8) 'PLC Input #27 

Case 28: PioIn% - ReadPIO* (IobaseAddrS + 4, 16) * PLC Input #28 

Case 29: PioIn% = ReadPIO% (IobaseAddr% +4, 32) 'PLC Input #29 

Case 30: PioIn% ■ ReadPIO% (IobaseAddr% + 4, 64) 1 PLC Input #30 

Case 31: PioIn% - ReadPIG% (lobaseAddr* + 4, 128) 'PLC Input #31 

Case 32: PioInS - ReadPIO% (IobaseAddr* + 5, 1) 'PLC Input #32 

Case 33: P±oIn% *= ReadPIOft (IobaseAridrfc + 5, 2) 'PLC Input #33 

Case 34: PioIn% = ReadPIOfc (IobaseAddr% + 5, 4) 'PLC Input #34 

Case 35: P±oIn% - ReadPIO* (IobaseAddxrfc + 5, 8) 'PLC Input #35 

Case 36: PloIn% » Reac»IO% (Ipbaseflddr* + 5, 16) 'PLC Xnput #36 

Case 37: PioSn% = ReadPIO% (IobaseAddr% + 5, 32) 'PLC Input #37 

Case 38: PioInS = ReadPIO% (IobaseAddrfc + 5, 64) 'PLC Input #38 

. Case 39: PloIn% » ReadPIO%(IobaseAddr% + 5, 128) 'PLC Input #39 



Case 41: PioIn£ = ReadPIO% (lobaseAddr* + 6, 2) ' PLC Input #41 

Case 42: Pioln* = ReadPIO% (IobaseAddrS + 6, 4) 'PLC Input #42 

Case 43: PioInS = ReadPIO% (IobaseAddr% + 6, 8) 'PLC Input #4.3 

Case 44: PioIn% » ReadPIO% (IobaseAddr% + 6, 16) 'PLC Input #44 

Case 45: PioIn% = ReadPIOS (IobaseAddr% + 6, 32) 'PLC Input #45 

Case 46: PioIn% = ReadPIOS (IobaseAddr% + 6, 64) 'PLC Input #46 

Case 47: PioIn$ - ReadPIQ% (IobaseAddr* + 6, 128) ' PLC Input #47 

Case 48: PioInS = ReadPIO% (IobaseAddr% + 8, 1) 'PLC Input #48 

Case 49: PioIn% » ReadPIO% (IobaseAddr% + 8, 2) * PLC Input #49 

Case 50: PioIn% = ReadPIOS (IobaseAddr% + 8, 4) 'PLC Input #50 

Case 51: PioIn% « ReadPIO% (IobaseAddr% + 8, 8) 'PLC Input #51 

Case 52: PioIn% » ReadPIO% (lobaseAddrS + 8, 16) 'PLC Input #52 

Case 53: PloInS - ReadPIOfc (IobaseAddr* + 8, 32) 'PLC Input #53 

Case 54: PioIn% « ReadPIO% (IobaseAddr% + 8, 64) 'PLC Input #54 

Case 55: PloIn% » ReadPIO% (IobaseAddr% + 8, 128) ' PLC Input #55 

Case 56: PioIn% = ReadPIOfc (IobaseAddr% + 9, 1) 'PLC Input #56 

Case 57: PioIn% =» ReadPIOS (IobaseAddr* + 9, 2) 'PLC Input #57 

Case 58: PioIn% » ReadPIO% (IobaseAddr% + 9, 4) 'PLC Input #58 

Case 59: Piolnfc - ReadPIOS CIobaseAddrS + 9, 8) 'PLC Input #59 

Case 60: PioIn% = ReadPIO% (IobaseAddr* + 9, 16) 1 PLC Input #60 

Case 61: PioIn% => ReadPIO* (IobaseAddr* + 9, 32) 'PLC Input #61 

Case 62: Piolnfc « ReadPIO% (IobaseAddrfc + 9, 64) 'PLC Input #62 

Case 63: P±oIn% = ReadPIOS (IobaseAddr% + 9, 128) 'PLC Input #63 

Case 64: PioIn% = ReadPIO* (IobaseAddr% + 10, 1) 'PLC Input #64 
Case 65: Pioln* = ReadPIO% (IobaseAddr% + 10, 2) * PLC Input #65 




Input #4Q 
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Case 
Case 
Case 
Case 
Case 
Case 



66: 
67: 
68: 
69: 
70: 
71: 



End Select 
End Function 
Sub PioInitO 



PioIn% » ReadPIO% (IobaseAddr% + 10, 
Piolnfc - ReadPIO% (IobaseAddr% + 10, 
PioIn% - ReadPIO%(IobaseAddr% + 10, 
PioIn% = ReadPIO%(IobaseAddr%. + 10, 
PioIn% = ReadPIOS(IobaseAddr% + 10, 
PioIn% » ReadPIO% (IobaseAddrS + 10, 



4) * PLC Input #66 
8) * PLC Input #67 
16) 1 PLC Input #68 
32) 'PLC Input #69 
64) 'PLC Input #70 
128) 1 PLC Input #71 



Dim 1% 

Call MhOutByte(IobaseAddr% 
Call MhOutByte (IobaseAddrfc 
Call- MhOutByte (IobaseAddr% 
Call MhOutByte (IobaseAddrfc 
Call MhOutByte <IobaseAddr% 



For 1% = 0 To 7 

OutImage% (1%) 
Next 1% 



+ 3, &H9B) 'Set 1st 24 lines as inputs 
+ 7, &H9B) 'Set 2nd 24 lines as inputs 
+ 11, &H9B) 'Set 3rd 24 lines as inputs 
+ 15, &H80) 'Set next 24 lines as outputs 
+ 19, &H80) 'Set last 24 lines as outputs 



0 'Clear the image array 



Call MhOutByte(IobaseAddr% + 12, 255) 'Bit 0-7 

Call MhOutByte (IobaseAddr% + 13, 255) 'Bit 8-15 

Call MhOutByte (IobaseAddr% + 14, 255) 'Bit 16 - 23 

Call MhOutByte (IobaseAddr% + 16, 255) 'Bit 24 - 31 

Call MhOutByte (IobaseAddr% + 17, 255) 'Bit 32 - 39 

Call MhOutByte (IobaseAddr% + 18, 255) 'Bit 40 - 47 

'Set all hardware port bits initially to 0 

End Sub 

Sub PioOut(IoChannel%, NuVal%) 



Select Case IoChannel% 

Case 0: Cali WritePIO (IobaseAddr% + 12, 

Case 1: Call WritePIO (IobaseAddr% + 12, 

Case' 2: Call WritePIO (I obaseAddr% + 12, 

Case 3: Call WritePIO (I obaseAddr% + 12, 

Case 4: Call WritePIO (IobaseAddr% + 12, 

Case 5: Call' WritePIO (I obaseAddr* + 12, 

Case 6: Call WritePIO (IobaseAddr% + 12, 

Case 7: Call WritePIO (IobaseAddr% + 12, 



'PLC Output #0 
' PLC Output #1 
* PLC Output #2 
'PLC Output #3 
'PLC Output #4 
* PLC Output #5 
'PLC Output #6 



Case 8: Call WritePIO (IobaseAddr% + 13, 
Case 9: Call WritePIO (I obaseAddr% + 13, 
Case 10: Call WritePIO (IobaseAddr% + 13, 
Case lis Call WritePIO (IobaseAddrfc + 13, 
Case 12: Call WritePIO (I obaseAddr% + 13, 
Case 13: Call WritePIO (I obaseAddr% '+ 13, 
Case 14: Call WritePIO (I obaseAddr% + 13, 
Case 15: Call WritePIO (IobaseAddrfc + 13, 



0, 1, NuVal%) 

0, 2, NuVal%) 

0, 4, NuVal%) 

0, 8, NuVal%) 

0, 16, NuVal%) 

0., 32, NuVal%) 

0, 64, NuVal%) ~-- s 

0, 128, NuVal%) 'PLC Output #7 

1, 1, NuVal%) 'PLC Output #8 
1, 2, NuVal%) ' PLC Output #9 

1, 4, NuVal%) ' PLC Output #10 

1, 8, NuVal%) * PLC Output #11 

1, 16, NuVal%) 1 PLC Output #12 

1, 32, NuVal%) ' PLC Output #13 

1, 64, NuValS) 'PLC Output #14 

1, 128, NuVal%) * PLC Output #15 



Case 16: 
Case 17: 
Case 
Case 
Case 
Case 
Case 22 
Case 23 



18: 
19: 
20: 
21: 



Call 
Call 
Call 
Call 
Call 
Call 
Call 
Call 



WritePIO 
WritePIO 
WritePIO 
WritePIO 
WritePIO 
WritePIO 
WritePIO 
WritePIO 



(IobaseAddr% 
(IobaseAddr% 
(IobaseAddrS 
(IobaseAridr% 
(IobaseAddr% 
(IobaseAddr% 
(IobaseAddr% 
(IobaseAddr% 



+ 14, 2, 1, NuVal%) 1 

+ 14, 2, 2, NuVal%) 1 

+14, 2, 4, NuValS) 1 

+14, 2, 8, NuValfc) 1 

+ 14, 2, 16, NuVal%) 

+ 14, 2, 32, NuVal%) 

+ 14, 2, 64; NuVal%) 

+ 14, 2, 128, NuVal%) 



PLC Output #16 
PLC Output #17 
PLC Output #18 
PLC Output #19 
'PLC Output #20 
'PLC Output #21 
■PLC Output #22 
' PLC Output #23 



Case 24: Call WritePIO (IobaseAddrS + 16, 3, 1, NuVal%) 'PLC Output #24 
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Case 25: Call WritePIO(IobaseAddr% 

Case 26: Call WritePIO (IobaseAddr% 

Case 27: Call WritePIO (IobaseAddrS 

Case 28: Call WritePIO (IobaseAddr% 

Case 29: Call WritePIO (IobaseAddr% 

Case 30: Call WritePIO (IobaseAddr* 

Case 31: Call WritePIO (IobaseAddr* 

Case 32: Call WritePIO (I obaseAddr% 
Case 33: Call WritePIO (lob as eAddr% 
Case 34: Call WritePIO (IobaseAddrS 
Case 35: Call WritePIO (I obaseAddr% 
Case 36: Call WritePIO (I obaseAddr% 
Case 37: Call WritePIO (lobaseAddrS 
Case 38: Call WritePIO (IobaseAddr* 
Case 39: Call WritePIO (IobaseAddr% 

Case 40: Call WritePIO {I obaseAddr% 

Case 41: Call WritePIO (IobaseAddr% 

Case 42: Call WritePIO (IobaseAddr% 

Case 43: Call WritePIO (lobaseAddrfc 

Case 44: Call WritePIO (IobaseAddr% 

Case 45: Call WritePIO (IobaseAddr% 

Case 46: Call WritePIO (lobaseAddr* 

Case 47: Call WritePIO (IobaseAddrS 



+ 16, 3, 2, NuVal%) 'PLC Output #25 

+ 16, 3, 4, NuVal%> 1 PLC Output #26 

+ 16, 3, 8, NuVal%) 'PLC Output #27 

+ 16, 3, 16, NuVal%) * PLC Output #28 

+ 16, 3, 32, NuValS) 'PLC Output #29 

+ 16, 3, 64, NuVal%) 1 PLC Output #30 

+ 16, 3, 128,'NuVal%) 'PLC Output #31 

+ 17, 4, 1, NuVal%) 'PLC Output #32 

+ 17, 4, 2, NuVal%) 1 PLC Output #33 

+17, 4, 4, NuVal%) 'PLC Output #34 

+ 17, 4, 8, NuVal%) 1 PLC Output #35 

+ 17, 4, 16, NuVal%) 'PLC Output #36 

+17, 4, 32, NuVal%) 'PLC Output #37 

+17, 4, 64, NuVal%) 'PLC Output #38 

+ 17, 4, 128, NuVal%) 'PLC Output #39 

+ 18, 5, 1, NuVal%) 'PLC Output #40 

+ 18, 5, 2, NuVal%) 'PLC Output #41 

+18, 5, 4, NuVal%) 'PLC Output #42 

+ 18, 5, 8, NuVal%) 'PLC Output #43 

+ 18, 5, 16, NuVal%) 'PLC Output #44 

+ 18, 5, 32, NuVal%) 'PLC Output #45 

+ 18, 5, 64, NuVal%) ' PLC Output #46 

+ 18, 5, 128, NuVal%) 1 PLC Output #47 



End Select 
End Sub 

Function ReadPIO* (Addr% , PosS) 
Dim 1% 



1% = MhInpByte(Addr%) 'Read the Hardware input 
If (1% And Posft) <> 0 Then 'Evaluate the bit - 

ReadPIO% = False 'Return true if set 

Else 

ReadPIOS = True 'False if clear 
End If 



End Function 

Sub WritePIO {Addr%, ArrayPos%, ' BitPos%, NuVal%) 



Dim 1% 



If NuVal% = 0 Then 

1% - OutImage% (ArrayPos%) And (Not BitPosfc) 'Clear the bit if 0 
Else 

1% - OutImage% ( Array Pos%) Or BitPos% 'Set the bit if 1 
End If 

OutImage%(ArrayPos%) =■ 1% 'Update the image register , 

Call MhOutByte(Addr%, (Not (IS) And 255)) 'Update the hardware register 



End Sub 



Public Sub ScanPLCInputs ( ) 
Dim 1% 

'Routine reads all input channels and maps to PLC_Imap%. Subscript 
'points to the channel number. 
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For 18 = 0 To 71 

PLC_I_Last%(I%) - PLC_I%(I%) 

PLC_I%(I&) - PioIn%(Ift) 'Read the bit 

Next 1% 

End Sub 

Public Sub StrobePLCOutputs ( ) 
Dim 1% 

'Routine writes content's of PLC_Omap% to appropriate discrete output 
For 1% =» 0 To 47 

Call PioOut(I%, PLC_OS(I%)) 'Write the array to discrete outputs 
Next 1% 
End Sub 
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' Program 
•Module 

•Creation date 

•Version 

•Edit 

•Edit date 
'Author . 



*: Press__00 . exe 
: MAST EXEC . BAS 
: 29-Sep-93 
: V2.1 
: -01 

: 26-Aug-OO 

: Joseph B. Schutte III 

Industrial Light & Motion, 
2170 Van Blaricum Rd. 
Cincinnati OH 45233 USA 



Inc. 



Copyright (C) 1993-2000 Industrial Light & Motion, Inc. 



•Revision History 
t 




•Version/Edit 

•V2.1-01 

'V2.1-00 

•V2.0-00 
t 


Edit date 
26-Aug-OO 
20-Jul-97 
20-Feb-97 


Who 
JBSIII 
JBSIII 
JBSIII 


'VI. 0-06 
i 


2 5- Jan- 9 7 


JBSIII 


•VI. 0-05 
i 


07-Jan-97 


JBSIII 


•VI. 0-04 
•VI. 0-03 
•VI. 0-01 
•VI. 0-02 


21-Dec-96 
06-Oct-96 

27- Aug-94 

28- Aug-94 


JBSIII 
JBSIII 
JBSIII 
JBSIII 



Reason 

Add special functions for Press_00 
Add functions to support Web Perforator 
Major upgrade to package to support VB4 and 
32 bit code 

Change homing seq to utilize HM command 
rather that FE/FI. 

Fix continuous mode bug and improve 
perf cycle execution 

Add move to unload pos to ref search 
Add programmable ref search PI 12 
Add I/O diag variables 
Create Init__System to 
get access for power down 



Option Explicit 



Global MasCmdPos I (16) 'Master desired position (0)=A 

Global Ma s Act Pos ! (16) 'Actual position based on current reference 

Global MasToGoPos ! (16) 'Remainder of distance to travel 

Global MasFeedRate! (16) r This is the feedrate in IPM 

Global MasRefModeS (16) ' Reference mode 0-ABS l=*Lef t 2=Right 

Global LMasCmdPos ! (16) 'Use these as edge detectors for UpdateAxDi splay 

Global LMasActPos ! (16) 

Global LMasToGoPos ! (16) 

Global LMasFeedRate! (16) 

Global LMasRefMode%(16) 

Global MasCPl!(16) 'This is the counts per inch for data conversion 
Global MasCPR! (16) 'Counts per rev 

Global ABSposoffset! (16) 'This is the offset distance to ABS 

Global CFlerrorcnt% 'Running trend counter for CF1 errors (Autolntegrator) 

Global CFlMMissfi 'Thi3 is the number of contiguous missed sheeter marks 

Global Configtrace% 'Used for returns from Npad and Apad 

Global Counter_NRSS 'Master non- reset able counter 

Global Counter_shiftl& 'Resetable counter #1 

Global Counter_shift2& 'Resetable counter #2 

Global Cutoff_CPR! 

Global CutoffEnablefc 'Set when Cutoff unit enabled 1 
Global DiecuttingEnable% 'Set when Diecutting Unit enabled 
Global Dposerror! 'Diecutter position error 

Global EnableHostPollingl% 'Set to zero to disable counter/data updates 

Global EnableHostPolling2% 'Same, CPU #2 

Global FlexoCalibrated% 'Flexo calibrated 

Global Flexo_CPR? 'Modulus value for ABS postion 

Global IntaglioCalReqfc 'This is the request flag from CPU-0 

Global Intaglio_CPR! 'Modulus calc for ABS positions 

Global Intaglio_Mod_factor% 'Number of Intaglio revs in a repeat 

Global IntChillrollEnable* 'Chill roll enable 
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Global IntInfeedEnable% 1 Product infeed enable 

Global IntOutfeedEnable% 'Product outfeed enable 

Global IntShuttleEnable% 'Shuttle roll enable 

Global IntWipingEnable% 'Wiping servo enable 

Global Iposerror! 'Intaglio position error 

Global IP Move% 'Commanded change this cycle 

Global IP_offset# 'This is the IP (Intaglio) CAM offset 

Global HistogramStrobe% 'Set once per CF1 rev to sync Histograms 

Global HistogramApos% ' Perf histogram pointer 

Global HistogramBpos% ' Sheeter histogram pointer 

Global HistoLastTlck# 'Histogram's last count po,s 

Global IntaglioCalibrated% 'Intaglio calibration status 

Global LastAxis% 'Parameter load sets last active axis 

Global LastCFIS '+1=CF1 err trend is +, -l^CFl err trend is - 

Global LastCodeLine2% 'This is the last line in the program 

Dim LastCFltick% 

Global LastMotionCntrS 'Previous scan counter value from Galil 
Global Lube_counter& 'Number of impressions since last lube cycle 
Global MachineCaiibrated% 'Global calibrate signal set by PLC 
Global MotionCntr& 'Counter value read from Motion subsystem 
Global MotionSystemStatus% 'Motion system status read from card 
Global Numbering_CPR ! 

Global NumberingEnable% 'Set when Numbering unit enabled 
Global ProductCalibrated% »VB Loop ready on product system 
Global P00Flexotrace% 
Global P001ntagliotrape% 
Dim Parsed_Str2$ (50) 

Dim Parsed_Countft 'Command Parser data entry counter 
Dim Parsed_Count2% 

Dim Parsed Str$(50) 'Command Parser target array 

Global Pressruntrace% 'Used for returns from keypad to frmPressrun 

Global PWRewindDia 'Intalio paperwipe roll diameter sensor 

Global EditActive% 'Flag used to inhibit updates when not in edit mode • 

Global Npad_Val! 'Result value from numeric pad touch screen 

Global Apad_Text$ 'Result value from ascii pad touch screen 

Global RegIntaglioAuto% 'Set when Intaglio register control in auto 

Global RegDiecuttingAuto% 'Set when Diecutter in Auto 

Global RegNumberingAuto% 'Set when Numbering in Auto 

Global RegCutoffAuto% 'Set when Cutoff in Auto register 

Global Ridethrudelay* 'Motion ride through timer flag 

Global SaveOpControls% 'Image of operator PB status 

Global SHIMMissi 'Counter for missed register marks 

Global PressRollData$ (20) 'Holding location for press production data 

Global RollDataLoaded% 'Flag- that is set when valid production data loaded 

Global OpPositionOffset# 'this is the operator running bias 

Global SaveRollEnableS 'Enables regular updates of roll data to disk 

Global ScanOpPb% 'Used for edge detection in operator controls 

Global Startdelay% 'Motion start delay timer flag 

Global SysMode% 'Machine mode: l=Flexo, 2= Intaglio, 3=Corobination 

Global SystemTickCounter# 'Number of impressions since bootup 

Global System_circumference# 'This is the current system circumference 

Global TargetPos# 'Work variable used as target position for transport moves 

Global Setuptrace% 'Returns from frmConfig 

Global Paramstrace% 'Returns from frmPtable 

Global Productiontrace% 'Returns from f rmProduction 

Global Te3tvar& 'Temp variable for testing system 

Global WhoseFocusfc 'l=Pressrun, 2=Flexo p 3=Params, 4=Production 

'5=Config, 6=Intaglio ^ 
Global WipingCalibrated% 'VB Loop ready on wiping system 

Global LastSystemState$ 'This is the previous message in the status box 

Global LastMasterState% 

Global SystemStatus% 'Main System Status word 
•Bit definitions: 
'0 - 
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•1 - 
'2 - 
«3 - 
'4 - 
'5 - 
»6 - 
'7 - 

' 8 - Power ON status l=On 

'9 - 

»10 - 

f ll - 

»12 - 

•13 - 

■14 - 

•15 - 



Global VarChangeFlag% (100) 'Flags set when operator data changes 

•Definition table: 
•0 - Intaglio Register offset 
•1 - Diecutting Register offset 
■2 - Numbering Register offset 
•3 - Cutoff Register offset 
1 4 - System mode changed 
'5 - intaglio register auto/manual 
1 6 - Diecutting register auto/manual 
■ 7 - Numbering register auto /manual 
'8 - Cutoff register auto/manual 
'9 - Line speed change 
*10- Numbering repeat length change 
'11- Cutoff repeast length change 
'12- Flexo gearing bias 
•13- Product Infeed bias 
'14- SHI gearing bias 
•15- SH2 gearing bias 
f 16- Product outfeed bias 
•17- Wiping Infeed bias 
•18- Wiping Outfeed bias 
•19- Chill rolls gearing bias 
r 20- Diecutting gearing bias 
'21- Numbering gearing bias 
*22- Folder/Cutoff gearing bias 
•23- Wiping speed trim ratio change 
■24- Product Calibration request 
•25- Wiping Calibration request 
*26- Diecutting Online status changed 
'27- Numbering Online status changed" 
'28- Cutoff Inline status changed 
•29- System circumference changed 
1 30- -Inker #1 Auto speed change 
•31- Inker #1 Manual speed change 
'32- Inker #2 Auto speed change 
'33- Inker 82 Manual speed change 
•34- Inker #1 mode 
f 35- Inker #2 mode 
•36- Intaglio Impression mode 
•37- Intaglio Wiping mode 
'38- Intaglio Prewipe mode 
f 39- Flexo Impression mode changed 
» 40- Wiping System mode 
•41- Request to recalc Cam table 
»42- Making a change to IP offset 
•43- Flexo register offset changed 
'44- Intaglio lower window changed 
•45- Intaglio upper window changed 
'46- Diecutter lower window changed 
* 47- Diecutter upper window changed 
*48- Cutoff lower window changed 
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'49- Cutoff upper window changed 

'50- -Forces a clear on the product calibrate flag 



Global Iolnput_tbl$(10, 8) 'I/O diagnostic input table 
Global IoOutput_tbl$(10, 8) 'I/O diagnostic output table 
Global Iolnput_tblu$(10, 8) 'I/O diagnostic input updates 
Global IoOutput__tblu$(10, 8) 'I/O diagnostic output updates 

Public Sub Updatejproduction_screen{) 

FrmProduction.MhRealInput9.Text « Str$ (SystemTickCounter#) 'Counter_NRS&) 
FrmProduction.MhReallnputll.Text = Str$ <Counter_shiftl&) 
FrmProduction. Texts. Text = Str$ (Actual Lin Speed*) 

End Sub 

Function CmdParser% (SrcStr$, Dlm$) 

Dim 1%, J%, K% 

K% = 0 
1% = 0 

J% = InStr(2, SrcStr$, Dlm$) 
While J$ > 0 

Parsed_Str$(K%) = Mid$ (SrcStr$, 1% + 1, J% - 1% - X) 
1% = J% 

J% = InStr(Ift + 1, SrcStr$, Dlm$) 
K% = K% + 1 

Wend 

Parsed_Str$ (K%) «= Mid$ (SrcStrS, 1% + 1, 40) 'Get the last entry 
K% = K% + 1 

Parsed_Str$(Kft) = nn 'This is the END flag 

Parsed_Count% « K% 
CmdParser% = K% 

End Function 

Sub Init_System( ) ' 

Dim 1%, J$ 

Call LoadParameters 'Load the parameters from disk 

Call LoadProductiondata 'Load the production counters 

Call Plolnit 'Initialize the Parallel I/O 

Call Aiolnit 'Initialize the Analog output board 

IntaglioCalReq* = 0 

IP_offset# - 0 

frmConfig!MhRealInput6.Text = 0 

LastCFltick* =» 0 'Used for generating once per rev tick 
SystemStatus* = 0 'Initialize all state bits to 0 
GuardsBypassedft = 0 
Press runtracefc = 0 
* P00Flexotrace% = 0 
P00lntagliotrace% =0 
Setuptracefc « 0 
ParamstraceS = 0 
Lube_counter& ■ 0 
CFlerrorcnt% - 0 
LastCFlS = 0 
LinSpeedlntegrator ! = 0 
HistoLastTickt » 0 
DiecuttingEnablefc = 1 
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NumberingEnable% 53 1 
Ridethrudelay* = 0 
3tartdelay% - 0 

frmConfig!MhRealInput7.Text « 23# 'Temporary value for init 
frmConfig!MhRealInput8.Text « 1# 'Temp value 
Systemic! rcumf erence# = frmConf±g!MhRealInput7 .Text 
'Initialize Job data variables here 

1% = InitServo%() 'Init Servo board(s) 
If 1% <> 0 Then 'Fatal initialization error if <> 0 
Call PioOut<0, 0) 

MsgBox ("? System initialization failed") 
End If 

IS « NewJobDataS 'Load job parameters 
' If Len(FrmP reduction! Text 8. Text) > 3 Then 
1 Call LoadRollData 

' End If 

frmConfig!MhRealInput7.Text « "23.0" 

frmConfiglMhReallnpute.Text = Param_tbl$ (1332, 2) 

frmConfig!MhRealInput9.Text ~ Param_tbl$ (1432, 2) , 
'Get initial values from Param table 

For 1% - 0 To 50 

VarChangeFlag% (1%) = 1 
Next 1% 

j Call UpdateMotionSystemVars 

•Set all flags true and call updater 

Las tMaster State* = 0 'Clear last state data 
EditActivefc «= False 'Not initially .in Edit mode 

1% = CmdServol%("ParamOK=l") 'Must be last! I ! - Enables motion prog 
1% = CmdServo2%("ParamOK=l") 

frmMain! Time r2. Enabled = True 'Enable System logic processor 
frmMain! Timer 3. Enabled =» True 'Enable screen updates 
frmMain! Timer 4. Enabled = True 'Enable long term disk data updates 
frmMain! Timers. Enabled - True 'Activate the PLC processor 
EnableHostPollingl% - True 'Enable Motion variable reads 
EnableHostPolling2% - True 

End Sub 

Sub calculate__Flexojmodulus ( ) 
Dim A, 1%, J, K 

•This routine calculates Master Modulus 
A = 0.5 

J = frmConfig!MhRealInput7,Text 'Intaglio repeat 

K » Param_tblS (1132, 2) 'Get the Flexo/Diecutting repeat 

1% = 0 

While Int(A) <> A 'Loop till A is an integer 

I ft = 1% + 1 'This is the intaglio modulus' 

A » (J / K) * 1% 'Flexo modulus 
Wend 

Intaglio_Mod_f actor % « 1% 
Intaglio_CPR! » Param_tbl$ (802, 2) * 1% 
Flexo_CPR! = Param_tbl$(1102, 2) * A 

End Sub < 
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Function LoadJobdata% ( ) 

1 This module loads the data from the CNC files 

Dim 1$, J%, K%, L% 

On Error GoTo Loadf ail 

1$ = Param_tbl$(0, 2) & Trim? (frmMain! Text 6. Text) & ".JOB" 
Open 1$ For Input As 1 

Input #1, 1$ 'Read the creation date 
f rmPOOFlexo! Text 1. Text = 1$ 



•ADD CODE HERE TO LOAD INIT 



LoadJobdata* = 0 'Successful load 

SystemStatus% - SystemStatus% Or &H20 *Set FILE LOADED bit 
Close #1 

•Force update on vars to motion system 

LoadJobdata_l : 

Exit Function 

Loadf ail : 

MsgBox {"? Error " & Err & " reading Job file") 
LoadJobdata% « -1 
Close #1 

Resume LoadJobdata_l 
End Function* 
Sub LoadParameters ( ) 

On Error GoTo LoadTrap 

Dim 1%, J%, K%, L$ 

Open "c;\PressOO\params.sys" For Input As 1 

For IS a 1 To 2000 'Setup the loop for the load 
frmP table. MS FlexGridl. Row » Ift - 1 
frmPtable.MSFlexGridl.Col « 0 
frmP table .MS FlexGridl . Text = Str${I%) 
Line Input #1, L$ 'Get a Line from file 
J% = InStrd, L$, ";") 
K% = InStr(J% + 1, L$, ";") 
frmPtable.MSFlexGridl.Col « 1, 

frmPtable.MSFlexGridl.Text = Mid$(L$, J% + 1, K% - J% - 1) 
frmPtable.MSFlexGridl.Col = 2 

frmPtable.MSFlexGridl.Text = Mid$(L$, K% + 1/ 20) 
Next 1% 

LastAxis* = CInt (Param_tbl$ (10, 2) ) - 1 
LExit: 

Close 1 * Close the parameter file 
Exit Sub 

LoadTrap : 



VI 
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Resume LExit 



End Sub 

Sub LoadProductiondata ( ) 

•This procedure reads the disk based storage to load counters 
'on powerup 

Dim IS 

Open "C:\Press00\Press_00.SYS" For Input As 1 

Input #1, 1$ 'This is the Non-reset sheet totalizer 
Count er_NRS& = CDbl(I$) 
FrmProduction I MhReallnput 9. Text =1$ 

Input #1, 1$ 'This is the shift sheet (resetable) count 
Counter_shiftl& - CDbl(I$) 
FrmProduction! MhReallnput 11. Text = 1$ 

Input #1, 1$ 'This is the operator ID 
FrmProducti on! Text 1. Text = 1$ 

Input 81, 1$ 'Read the last used roll data file 
FrmProduction!Text8.Text = 1$ 

Close #1 

End Sub 

Function LoadRollData% ( ) 

• This module loads the data from the SN files 

Dim 1$, J$, K% 

On Error GoTo Rollfail 

1$ =» FrmProduction!Text8.Text & ".DAT" 
Open 1$ For Input As 1 

Line Input #1, J$ 'Read the roll identifier 
FrmProduction!Text4.Text » J$ 

For K% « 1 To 10 'Read the Press specific data 

Input #1, Pr ess Roll DataS (K%) 
Next K% 

Line Input #1, J$ 'Read operator A 
FrmProduction !Text6. Text = JS 

Line Input #1, J$ 'Read Operator B 
FrmProduction ! Text7 . Text = J$ 

Line Input #1, J$ 'Read Total impressions 
FrmProduction JMhReallnputl = J$ 

Line Input #1, J$ 'Read Good impressions 
FrmProduction !MhRealInput2 » JS 

Line Input 81, J$ 'Read Printing spoils 
FrmProduction! MhReallnput 3 = J$ 

Line Input #1, J$ 'Read Diecutting register spoils 
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FrmProduction!MhRealInput4 = J$ 

Line Input #1/ J$ 'Read Numbering spoils 
FrmProduction!MhRealInput5 » J$ 

Line Input #1, J$ 'Read Sheeter register spoils 
FrmProductionlMhRealInput6 = J$ 

Line Input #1, J$ 'Read Operator forced spoils 
FrmProduction!MhRealInput7 » J$ 

Line Input #1, J$ 'Read Total spoils 
FrmProduction!MhRealInput8 = J$ 

Close 1 

LoadRollData% - 0 

RollDataLoadedft = 1 'This is a perforator RUN permissive 
SaveRollEnable% = 1 'Enable auto save function 

LoadRollData_ 1 : 

Exit Function 



r\0 J. JL rail : 

MsgBox ( w ?Error " & Err & n reading Roll data file") 
Stop 

LoadRollData% = -1 
Resume LoadRollData_l 

End Function 

Function Mods tring$ (Sval$, Incvaltf, Dp%) 

•This procedure either increases or decreases the numeric 
» value of the source string. Result string is returned 

Dim 1%, J$, K#, L% 

K# - CDbl(Sval$) + Incval# 'This is the new value 
J$ = Trim$(Str$(K#)) 

L% « InStrd, J$, -.") 'Find the DP 

ModString$ - LeftB$(J$, L% + Dp%) 'Truncate the string 
End Function 

Public Sub UpdateBargraphs ( ) 

•This routine uses Intaglioerror and CFlerror to set the bargraphs 
•Data is scaled in inches for a bargraph range of +/-1.200 inches. 

Dim I ! 

frmPressrun!MhRealInput7.Text = Iposerror 
frmPressrunlMhReallnputS.Text = Dposerror 

'Update the Intaglio bar graph 
If Iposerror! < 0 Then 

•It's a negative value 

frmPressrun.Mh3dGauge2.FillValue = 0 

•Clear the positive side of the bargraph 

I! = Iposerror! * -1000 

If I! frmPressrun.Mh3dGaugel.Max Then 

I! = frmPressrun.Mh3dGaugel.Max 
End If 

frmPressrun.Mh3dGaugel.FillValue =1! 
End If 

If Iposerror! >= 0 Then 

•It's a positive value 
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j 

frmPressrun.Mh3dGaugel.FillValue =» 0 
II = Iposerrorl * 1000 

If I! >= frmPressrun.Mh3dGauge2.Max Then 

I! = frmPressrun.Mh3dGauge2.Max 
End If 

frraPressrun.Mh3dGauge2.FillValue =» I! 
End If 

•Update the Diecutting bar graph 
If Dposerror! < 0 Then 

•It's a negative value 

frmPressrun.Mh3dGauge4.FillValue = 0 

•Clear the positive side of the bargraph 

I! =« Dposerror! * -1000 

If I J frmPressrun.Mh3dGauge3.Max Then 

II - frmPressrun.Mh3dGauge3.Max 
End If 

f rraPr ess run. Mh3dGauge3.Fil lvalue m j\ 
End If 

If Dposerror! >= 0 Then 

•It's a positive value 
frmPressrun.Mh3dGauge3.FillValue - 0 
I! » Dposerror! * 1000 

If I! >- frmPressrun.Mh3dGauge4.Max Then 

I! = frmPressrun.Mh3dGauge4.Max 
End If 

frmPressrun.Mh3dGauge4.FillValue — I ! 
End If 

End Sub 



Function NewJobData% ( ) 

• This module initializes job variableas as new files 

Dim 1$, J%, 'K%, L% 

On Error £oTo Newfail 

If Len(fnnMain!Text6.Text) = 0 Then 

frmMain!Text6.Text - "Noname" 
End If 

1$ = Param_tbl$(0, 2) & f rmMain !Text6.Text & ".JOB" 

Open 1$ For Output As 1 'Test open the temporary file 
Close #1 



NewJobData% = 0 'Successful load 

SystemStatus% - SystemStatusS Or &H20 'Set FILE LOADED bit 

NewJobdata_l : 

Exit Function 

Newfail : 

MsgBox ("?Error ■ & Err & " creating Job file") 
NewJobData% - -1 
Resume NewJobdata_l 

End Function 

Function SaveJobdata% () 

• This module saves data to the Job data files 
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Dim 1$, J%, K%, h% 

On Error GoTo Savefail 

1$ = Param_tbl$ (0*, 2) & f rmMain ! Text6 . Text & ".JOB" 
Open 1$ For Output As 1 

1$ = Date$ 'Get the current system date 
Print #1, 1$ 

frmPOOFlexo ! Text 1. Text » 1$ 
Close #1 

Savetfobdataft = 0 Successful load 

SaveJobdata_l : 

Exit Function 

Savefail: 

MsgBox ("?Error M & Err & " writing Job file") 
SaveJobdata% » -1 
Close #1 

Resume SaveJobdata_l 

End Function 

Function SaveRolldata% ( ) 

■ This module saves data to the Gob data files 

Dim 1$, J%, K%, L% 

If SaveRollEnable% = 0 Then •Only if something to save 
On Error GoTo SaveRollfail 

1$ = FrmProduction!Text8 -Text & ".DAT" 
Open 1$ For Output As 1 

Print #1, FrmProduction!Text4.Text 'Save the roll identifier 

For K% 3 1 To 10 'Resave the Press specific data 

Print #1, PressRollData$ (K%) 
Next K% 

Print #1, FrmProduction!Text6.Text 'Save Operator A 

Print #1, FrmProduction!Text7.Text 'Save Operator B 

Print #1, FrmProductionlMhReallnputl 'Save Total Impressions 

Print #1, FrmProduction!MhRealInput2 'Save Good impressions 

Print #1, FrmProduction!MhRealInput3 'Save Printing spoils 

Print #1, FrmProductionIMhRealInput4 'Save Diecutting register spoils 

Print #1, FrmProductioniMhReallnputS 'Save Numbering spoils 

Print #1, FrmProduction!MhRealInput6 'Save Sheeter spoils 

Print #1, FrmProduction!MhRealInput7 'Save Operator forced spoils 

Print #1, FrmProduction!MhRealInput8 'Save Total spoils 

Close #1 

SaveRolldataB = 0 'Successful save 

End If 

SaveRolldata_l: 

Exit Function 

SaveRollfail : 
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MsgBox ("? Error " & Err & n writing Roll data file") 
SaveRolldatafc «= -1 
Resume SaveRolldata_l 

End Function 

Function AutoExec%{) 

•This is the Top Level Auto Execution Unit. It calls routines 
•to read motion system variables, makes calculations, updates 
•system variables, and writes new variable data to the motion 
• system. 

Dim 1% 

Call ReadMotionData 'Read the motion system variables from card 
Call UpdateSystemVariables "Calc speeds, errors, etc. 
Call Autolntegrator 'Update CF1 gear ratio trim 

Call UpdateMotionSystemRL • Update run logic commands to 'motion card 

Call UpdatelntaglioDrive 'Update logic and velocity commands 

Call UpdateWipingDrive 1 Update Wiping logic and velocity commands 

Call UpdateMotionSystemVars 'Update motion system ratios, etc. 

Call Updatelntagliolnkers 'Update the velocity calc's for inkers 

Call WriteMotionData 'Write new variable data to the motion controllers 

End Function 

Sub Updatelntagliolnkers ( ) 

•Update the Velocity commands for both Intaglio Inker drives 
Dim Ift, T_actual% 

Select Case IntaglioInkerlControl,% 'Inker #1 

Case 0 'Inker OFF 

Call AioOut(3, Val { Param_tbl$ <916, 2))) 'Write the null offset 

Case 1 'Inker in Manual ' 
If IntaglioInkerlManrun% « 0 Then 

Call AioOut<3, Val(Param_tbl$(916, 2))) 'Write the null offset 
Else 

1% = Val(Param_tbl$(916, 2)) + (Val (Param_tbl$ {917, 2J) * Val (f rmPOOIntaglio ! Slider 1 .Val 

ue) ) 

Call AioOut(3, 1%) 
End If 
Case 2 'Inker in Auto 

T actual* = ActualLinSpeedfc * 2 * (f rmPOOIntaglio ! Slider2 .Value / 100) 
' Plug in the auto mode scaling 

1% « Param_tbl$<916, 2) + (Param_tbl$ (917, 2) * T_actual%) 
Jft - Param_tbl${916, 2) + (Param_tbl$ (917, 2) * Param_tbl$ (918, 2)) 
If Abs(J%) > Abs(I%) Then 1% = J% 'Run at min speed or better 
Call AioOut(3, 1%) 
End Select 

Select Case IntaglioInker2Control% 'Inker #2 

Case 0 'Inker OFF 

Call AioOut(4, Val (Param_tbl$ (919, 2)>) 'Write the null offset 

Case 1 'Inker in Manual 

If IntaglioInker2Manrun% = 0 Then 

Call AioOut(4, Val<Param_tbl$ (919, 2))) 'Write the null offset 
Else 

1% = Val(Param_tbl$(919, 2)) + (Val (Param_tbl$ (920, 2)) * Val (f rmPOOIntaglio! Slider 4. Val 

ue) ) 

Call AioOut(4, 1%) 
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End If 
Case 2 'Inker in Auto 

T_actual% = ActualLinSpeed% * 2 * (f rmP 00 Intaglio ! Slider 3. Value / 100) 
'Plug in the auto mode scaling 

1% = Param_tbl$ (919, 2) + (Param_tbl$ (920, 2) * T_actual%> 
J% » param_tbl$(919, 2) + (Param_tbl$ (920, 2) * Parara_tbl$ (921,. 2)) 
If Abs(J%) > Abs(I%) Then 1% - J% 'Run at min speed or better 
Call AioOutU, 1%) 
End Select 



End Sub 

Sub WriteCounters ( ) 

•Update the count values to disk for non-volatile 

Open "C:\PressO0\Press_00.sys" For Output .As #2 

Print #2, TrimS (Str$ (Counter_NRS&) ) 'Non-reset totalizer 

Print #2, Trim$ (Str$ (Counter_shiftl&) ) 'Shift sheet totalizer 

Print #2, FrmP roduct ion ! Text 1 .Text 'Operator ID 

Print #2, FrmP roduct ion I Text 8. Text 'Current Roll ID 

Close #2 



End Sub 



Public Function Param_tblS ( R% , C%) 

1 This function translates calls from the old Grid function 
♦ to the new Grid function 



frmPtable.MSFlexGridl.Row = R% 
frmPtable.MSFlexGridl.Col = C% 



Param_tbl$ » frmP table . MSFlexGridl • Text 
End Function 



Public Sub Updatejpressrun_screen() 

•This routine handles updates of all variables on the pressrun 
'display. It is the responsibility of other subs to keep the 
'variables up to ciate. 

If SHlMMiss& > 10 Then 

f nnPressrun ! Label2 7. Visible =» True 
Else 

frmPressrun!Label27 .Visible « False 
End If 

If CFlMMissfi > 10 Then 

frmPr ess run! Label 5. Visible = True 
Else 

frmPressrun! Label 5 .Visible = False 
End If 

'Update the missing mark indicators on Pressrun screen 
Call UpdateBargraphs 

frmPOOFlexo! Text5. Text « Actual LinSpeed% 'Update the display 



End Sub 

Public Sub WriteMotionData ( ) 

•This routine writes variable data out to the appropriate motion controllers 



Dim 1% 
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If (EnableHostPollingl% - True) And (EnableHostPolling2 - True) Then 

1% = CmdServol%( M W±peRefS=" & Str$ (ActualWipingSpeed% * System_circumf erence# / 49)) 
End If 
End Sub 

Public Sub ReadMotionData ( ) 

•This routine reads pertentent variables from motion card and maps 
•them to the appropriate variables in the appropriate scale 

Dim 1$, J$, K%, L%, Ml, N! 
LastMotionCntr* = MotionCntrfi 

If (EnableHostPollinglft = True) And (EnableHostPolling2 = True) Then 

1$ - ReqServo$("MG FlexCreq", 0) f Read the Flexo Cal req status 
K% - CmdServo2%("FlexCreq=" & Trim$(I$)) 'Map to CPU-2 

1$ = ReqServo$("MG DieCreq", 0) 'Read the Diecutting Cal req .status 
K% = CmdServo2%{ M DieCreq= w & Trim$(I$)) 'Map to CPU-2 

1$ = ReqServo$("MG IntCreq", 0) 'Read the Intaglio Cal req status 
IntaglioCa ( LReq% » Val(I$) 

1$ - ReqServo$( M MG ALspeed", 1) 'Get the Actual Line speed 

ActualfcinSpeed% = Val(I$) 

K% - cmdServol%("AI»speed« n & 1$) 

1$ = ReqServo$("MG MSIJreq", 0) 'Get the Intaglio jog request flag 
MSIntaglioJogReq* = Val(I$) 

1$ - ReqServo$ ( "MG MSWJreq", 0) 'Get the Wiping jog request flag 
MSWipingJogReq% = Val(I$) 

1$ - ReqServo$("MG MSWIreq", 0) 'Get the Wiping imps request flag 
MSWipingImpReq% « Val(I$) 

1$ - ReqServo$("MG ProdCal", 0) 'Get the Product calibration status 
ProductCalibrated% = Val(IS) 

1$ « ReqServoSC'MG WlpeCal", 0) 'Get the Wiping calibration status 
WipingCalibrated% - Val(I$) 

1$ = ReqServo$ ("MG RevCTR" , 0) 'Get the Wiping calibration status 
SystemTickCounter# = Val(I$) 

1$ = ReqServo$CMG Iposerr", 0) 'Read Intaglio position error 
Iposerror! = CDbl(I$) / MasCPI!(7) 'Convert to inches by H axis scale 

1$ = ReqServo$("MG Dposerr", 0) 'Read Diecutter position error 
Dposerror! - CDbl(I$> / MasCPl! (7) 'Convert to inches by H axis scale 

1$ » ReqServo$( M MG FlexPerr", 1) 'Read Flexo position error 
frmPressrunlMhReallnputll.Text =* CDbl(I$) 

1$ « ReqServo$("MG NuroPerr", 1) 'Read Numbering position error 
frmPressruniMhReallnputlO.Text « CDbl(I$) 

1$ = ReqServo$("MG CutPerr", 1) 'Read Cutoff position error 
frmPressrun!MhRealInput9.Text - CDbl(I$) 

1$ =* ReqServo$("MG JTPH", 0) 'Get the IPC position 
frmConfig!MhRealInput2.Text = i$ 
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1$ - ReqServoS ("MG VBlsampo", 0) 'Get the Intaglio Mark position 
frmConfiglMhReallnputll.Text » 1$. 

1$ a ReqServo${"MG DieMKpos n , 0) 'Get the Diecutter Mark position 
frmConfig!MhRealInputl3.Text = 1$ 

1$ = ReqServo$("MG Cregrefm", 1) 'Get the Cutoff -Mark position* 
frmConfig!MhRealInputl4.Text « 1$ 

1$ = ReqServo$ ( "MG @AN[1]", 0) 'Get PW roll dia data 
PWRewindDia = CSng{I$) 

End If 

End Sub 

Public Sub UpdateSystemVariables ( ) 

'This routine called by AutoExec% to update variable data and 
•counters for general display update. 

Dim I& 

If SystemRevTick% <> 0 Then 
1 I& = MotionCntrfc - LastMotionCntr& 

• Counter NRS& = Counter_NRS& + I& 'Increment Master Non- reset counter 
' Counter_shiftl& = Counter__shiftl& + I& 'Increment Shift totalizer 

• End If 

End Sub 

Public Sub UpdateMotionSystemVars ( ) 

'This routine downloads any motion system variables that have changed 
'during the current scan 

Dim 1%, J%, K%, L&, M$, N, 0# 

If VarChangeFlag%(0) <> 0 Then 'Intaglio register offset 
VarChangeFlag%(0) - 0 

1% » CmdServol%("IntRoffs=" & TrimS (frmPress run! MhReallnput3 .Text) ) 
End If 

If VarChangeFlag%(l) <> 0 Then 'Diecutting register offset 
VarChangeFlag% (1) ■ 0 

1% - CmdServol% ("Dieof fs=" & Trim$ ( f rmPressruntMhRealInput6 .Text) ) 
1% - CmdServo2% ("Dieoffs^" & Trim$ ( frmPress run IMhReallnput 6 .Text) ) 
End If 

If VarChangeFlag% (2) <> 0 Then 'Numbering register offset 
VarChangeFlagfc(2) = 0 

1% - CmdServo2%( n NumRoffs« n & TrimS { frmPress run! MhRealInput2 .Text) ) 
End If 

If VarChangeFlag%(3) <> 0 Then 'Cutoff register change 
VarChangeFlag% (3) - 0 

1% = CmdServo2fc ("CutRof fs^" & Trim$ (frmPress run IMhReallnput 5. Text) ) 
End If 

• If VarChangeFlag% (4) <> 0 Then 'System mode change 
VarChangeFlagfc (4) = 0 

1% = CmdServolftr'SysMode^" & Trim$ (StrS (SysMode%) ) ) 

1% - CmdServoaS ("SysMode=" & Trim$ (Str$ (SysMode%) ) ) 

1% = CmdServol%("PIEna=" & TrimS (Str$ (IntlnfeedEnableS) ) ) 

1% = CmdServolfc ("SHEna=" & Trim? ( Str$ ( IntShuttleEnable% ) ) ) 

1% = CmdServol% ("POEna=" & TrimS (St r$ (IntOutfeedEnable%) ) ) 

1% = CmdServolS ("ChiEna= w & Trim$ (Str$ ( IntChillr ollEnable% ) ) ) 
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1% » CmdServol%("WlEna=>" & Trim$ (Str$ (IntWipingEnable%) ) ) 
1% « CmdServol%( T, SysRun»lO n ) 
1% = CmdServo2% ("SysRun=10") 
End If 

If VarChangeFlag%(5) <> 0 Then 'Intaglio Auto/manual status 
VarChangeFlag%(5) =0 

1% » CmdServol% ( "IntRauto=" & Trim$ (Str$ (RegIntaglioAuto%) ) ) 
End If 

If VarChangePlag% (6) <> 0 Then 'Diecutting Auto/manual status 
VarChangeFlag%(6) « 0 

1% = CmdServol% ( "DieRauto=" & Trim$ (Str$ (RegDiecuttingAutoS) ) ) 
End If 

If VarChangePlag% (7) <> 0 Then 'Numbering Auto/manual status 
VarChangeFlag% (7) » 0 

1% « CradServo2% ( "NuraRauto" & Trim$ (Str$ (RegNumberingAuto%) ) ) 
End If 

If VarChangeFlag* (8) <> 0 Then 'Cutoff Auto/manual status 
VarChangeFlag% (8) = 0 

1% « CmdServo2% ( "CutRauto^" & Trim$ (Str$ (RegCutof fAuto%) ) ) 
End If 

If VarChangeFlag%(9) <> 0 Then 'Line speed change 
VarChangeFlag% (9) » 0 

1% CmdServol% ( "LinSpeed«" & Trim$ (f rmPress run! Text2 .Text) ) 
1% « CmdServo2% { "LlnSpeed=" & Trim$ ( frmPress run ! Text2 .Text) ) 
End If 

VarChangeFlag% (10) = 0 * ******* Function Disabled ******* 
If Var Change Flag* (10) <> 0 Then 'Numbering repeat length 
VarChangeFlag%(10) - 0 

N = System_circumf erence# * Intaglio__Mod_jf actor% / f rmConfig!MhRealInput8.Text 
1% = CmdServo2%("CPRK«" & Trim$(Str$(N * Paramjibl? ( 1302, 2)))) 

1% = CmdServo2%("CtWghtK= rt & Trim$ (Param_tbl$ (1302, 2) / frmConfigJMhReallnputB.Text) ) 
End If 

VarChangeFlag&Ul) - 0 1 ******* Function Disabled ******* 
If VarChangeFlag%(ll) <> 0 Then 'Cutoff repeat length 
VarChangeFlag%(ll) » 0 

N =s System_circumf erence# * Intaglio__Mod_jf actor % / f rmCon fig! MhReal Input 9. Text 
1% = CmdServo2%<"CPRL« n & Trim$ (Str$ (N * Param__tbl$ (1402, 2)))) 

1% = CmdServo2%( , 'CtWghtL=» , ' & Trim$ (Param_tbl$ ( 1402, 2) / f rmConf iglMhRealInput9 .Text) ) 
End If 

If VarChangeFlag% (12) <> 0 Then 'Flexo gearing bias 
VarChangeFlag% (12) = 0 

1% = CmdServo2%("BiasA=»" & f rmPress run JMhReallnputl (0) .Text) 
End If 

If VarChangeFlagfc (13) <> 0 Then 'Product infeed gearing bias 
VarChangeFlagfc (13) = 0 

1% » CmdServolfc ("BiasA=" & frmPressrun!MhRealInputl (1) .Text) 
End If 

If VarChangeFlag%<14) <> 0 Then 'SHI gearing bias 
VarChangeFlag%(14) = 0 

1% =» CmdServolfc ( "BiasB« M & f rmPress run! MhReal Input 1 (2) -Text) 
End If 

If VarChangeFlag% (15) <> 0 Then ' SH2 gearing bias 
VarChangeFlag%(15) « 0 

1% « CmdServol% { "BiasC»" & f rmPress run !MhRealInputl (3) .Text) 
End If 
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If VarCHangeFlag%(16) <> 0 Then 'Product outfeed gearing bias 

^%^ h ^Iervo!%rBia S D=» ft frmPressrun!MhRealInputl (4) .Text) 
End If 

If VarChangeFlag%(17) <> 0 Then 'Wiping Infeed gearing bias 

^r= h ^ervol%("BiasE=» ft £ rmPressrunlMhReallnputl (5) .Text) 
End If 

If VarChangeFlag%<18) <> 0 Then 'Wiping Outfeed gearing bias 

?r^^ervo!%( 8 4ias^« ft frffi Pressrun!MhRealInputl (6) .Text) 
End If 1 

If VarChangeFlag%(19> <> 0 Then 'Chill rolls gearing bias 

I% r S h c^Servol%rBiasG=" ft f rmPressrunlMhReallnputl (7 ) .Text) 
End If 

If VarChangeFlag%{20) <> 0 Then 'Diecutting gearing bias 

^ h C^er^o2%rkas^« ft f rmPressrunlMhReallnputl (8) .Text) ' 
End If 

If VarChangeFlag%(21) <> 0 Then 'Numbering gearing bias 

S'^SSStSirilasS-- ft frmPressrun!MhRealInputl(9).Text) 
End If 

If VarChangeFlag%(22) <> 0 Then 'Sheeter gearing bias 

I"^C^Ierto2%rBiasS=« ft f rmPressrun IMhReallnputl (10) .Text) 
End If 

If VarChangeFlag%(23) <> 0 Then 'Wiping speed trim change 

I% r 2 h C^ertol%r^ & frmPOOIntaglio! SliderS. Value) 

End If 

If VarChangeFlag%{24) <> 0 Then 'Product calibration request 
VarChangeFlag%(24) - 0 
1% = CmdServol% ("??????????) 
End If 

If VarChangeFlagft{25) <> 0 Then 'Wiping calibration request 
VarChangeFlag.%(25) « 0 
1% - CmdServolftr*?????'? , m? , ^) 
End If 

If VarChangeFlag%(26) <> 0 Then 'Diecutting online changed 

I% r » h C^Servo2%rDieEna & Trim$ (Str$ (DiecuttingEnable%) ) ) 
1% « cmdServo2%( u SysRun=*10") 
End If 

If VarChangeFlag%(27) <> 0 Then 'Numbering online changed 

I%^ h C^Seivo2M»NumEna-" & Trim$ (Str$ (NumberingEnable%) ) ) 
1% - OndSer^ftrSysRun^lO") 
End If 

If VarChangeFlag%{28) o 0 Then 'Cutoff online changed 
VarChangeFlagfc (28) - 0 

1% « CmdServo2%( M CutEna« n & Trim$ (str$ (Cutoff Enable*) ) ) 
1% « CmdServo2%( n SysRun«10") 
End If 
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If VarChangeFlag% (29) o 0 Then 'System Circumference changed 
VarChangeFlag%(29) = 0 

System_circumference# = f rmCon fig !MhRealInput7 .Text 
frmConfig!Label2. Visible » False • Clear Cam table light 
Call Calculate^Flexo^modulus 

1% = CmdServol% ( w SysCirc= n & Trim$ (Str$ (System_circumference#) )' ) 
Ift » CmdServo2% ( n SysCirc= n & Trim$ (Str$ (System_circumference#) ) ) 
1% ~ CmdServol%( n MIctwght= n & Trim$ (Str$ {MasCPR! (7) / System_circumf erence#) ) ) 
1% = CmdServo2%( ,, MIctwght« ,, & Trim? (Str$ (MasCPR! (7) / System_circumf erence#) ) ) 
1% - CmdServo2% ("CPRDX=" & Trim? (Format $ ( Intaglio_CPR I , »#########"))) 
1% = CmdServo2%("CPRI=" & Trim$ (Format$ (Flexo_CPR! , »#########"))) 
0# * Param_tbl$ (1202, 2) * {System_circumference# / Param_tbl$ (1232, 2)) 
1% - CmdServo2% ("CPRJ=" & Trim$ (Format $ (0#, "#########"))) 
'VarChangeFlag% (10) » 1 'Trigger recalc of Numbering and Cutoff 
'VarChangeFlag%(ll) *= 1 
I* = CmdServo^T'SysRun-lO") 
1% - CmdServo2%( n SysRun-10") 
End If 

If VarChangeFlag% (30) <> 0 Then 'Inker #1 Auto speed change 
VarChangeFlagft (30) = 0 
1% - CmdServol% ("??????????*?) 
End If 

If VarChangeFlag% (31) <> 0 Then 'Inker #1 Manual speed change 
VarChangeFlag% (31) = 0 
1% = CmdServol% ("????????????) 
End If _ 

If VarChangeFlag% (32) <> 0 Then 'Inker #2 Auto speed change 
VarChangeFlag% (32) — 0 
1% = CmdServol* ("????????????) 
End If 

If Var Change Flag% (33) <> 0 Then 'Inker #2 Manual change 
VarChangeFlag%(33) - 0 
1% - CmdServol% ("?????????????) 
End If 

If VarChangeFlag%(34) <> 0 Then 'Inker #1 mode 
VarChangeFlag% (34) » 0 
1% - CmdServol% ("??????????????) 
End If 

If VarChangeFlag% (35) <> 0 Then 'Inker #2 mode 
VarChangeFlag% (35) = 0 
1% - CmdServol% ("??-????????????) 
End If 

If VarChangeFlagfc (36) <> 0 Then 'Intaglio Impression mode 
VarChangeFlag% (36) = o 
1% = CmdServolfc ("???????????????) 
End If 

If VarChangeFlag% (37) <> 0 Then 'Intaglio Wiping mode 
VarChangeFlag% (37) « 0 

1% » CmdServol%( n WipeMode=* n & Str$ (IntaglioWipeControl%) ) 
End If 

If VarChangeFlag% (38) o 0 Then 'Intaglio Prewipe mode 
VarChangeFlag% (36) =» 0 
1% = CmdServol% {"????????*???????) 
End If 

If Var Change Flag% (39) <> 0 Then 'Flexo Impression mode 
VarChangeFlag%(39) - 0 
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' 1% « CmdServol% ("?????????•??????) 

End If 

If VarChangeFlag% (40) <> 0 Then 'Wiping Manual OFF/ ON mode 
VarChangeFlag%(40) =0 

1% = CmdServol%("WipeMoo=" & Str$ (IntaglioWipeManual%) ) 
End If 

If VarChangeFlag% (41) <> 0 Then 'Recalculate Cam table # 
1% - CmdServol%("TrigCaniP n & Str$ <VarChangeFlag% (41) ) ) 
If VarChangeFlag* (41) = 1 Then 

1% - CmdServo2%("DEX=0") 

1% = CmdServo2%("DPX=0") 

1% = CmdServo2% ( T, DPZ=0 n ) 

Ift » CmdServo2% ( n DPW=0 M ) 

1% = CmdServo2%("AxisDXa[0]=0 n ) 

1% - CmdServo2%("AxisDXa[3]=0 w ) 

1% - CmdServo2%("AxisDXb[0]=0") 

1% o CmdServo2% ( M AxisDXb[3]=0 n ) 

1% = CmdServo2%("AxisXC0]=0") 

1% = CmdServo2%("AxisX[3]»0") 

1% = CmdServo2%( H AxisZ[0]==0 M ) 

1% = CmdServc^fcrAxisZtSl^O") 

1% - CmdServo2%("AxisW[0]=0 M ) 

1% = CmdServo2%( ,, A!£isW[3]=0 , ») 
End If 

VarChangeFlag% (41) - 0 
End If 

If VarChangeFlag%(42) <> 0 Then 'Altering IP offset 
VarChangeFlag% (42) = 0 

1% » CmdServol% ( "PD " & Trim$ (Str$ (IP_Move%) ) ) 
End If 

If VarChangeFlag%(43) <> 0 Then ' Flexo register change 
VarChangeFlagft (43) =0 

1% = CradServo2% ("Flexof f s=" & Trim$ (f rmPressrun !MhRealInput4 .Text) ) 
End If 

If VarChangeFlag%(44) <> 0 Then 'Intaglio Mark window begin 
VarChangeFlag%(44) = 0 

1% = CmdServol%( w IntLwin=" & f rmConf ig!MhRealInput3 .Text) 
End If 

If VarChangeFlag%{45) <> 0 Then 'Intaglio Mark window end 
VarChangeFlag%(45) = 0 

1% = cmdServol%("IntUwin=" & frmCbnfig!MhRealInputlO .Text) 
End If 

If VarChangeFlag%(46) <> 0 Then 'Diecutting Mark window begin 
VarChangeFlag%{46) » 0 

1% « CmdServol%(' , DieLwin= T ' & f rmConfig!MhRealInput4 .Text) 
End If 

If VarChangeFlag%(47) <> 0 Then 'Diecutting Mark window end 

VarChangeFlag%(42) =0 

1% - CmdServol% < "DieUwin=" & f rmConf ig ! MhRealInputl2 .Text) 

End If 

If VarChangeFlag% (48) <> 0 Then 'Cutoff Mark window begin 
VarChangeFlag%(48) =0 

1% - CmdSeirw^r'CutLwin^ & f rmConf igiMhReallnputS. Text) 
End If 

If VarChangeFlag% (49) <> 0 Then 'Cutoff Mark window end 

VarChangeFlag%(49) =0 , ^ _ 

1% = CmdServo2% ( " CutUwin^" & frmConfig!MhRealInputl.Text) 
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End If 

If VarChangeFlag% (50) <> 0 Then ' Force s, uncalib rate on Product 

VarChangeFlag%{50) « 0 

1% « CmdServol%< n ProdCal=0") 
End If 



End Sub 

Public Sub Autolntegrator ( ) 

'Routine monitors position error on CFl axis and makes long term 
'gear ratio adjustments to correct print length errors, etc. 

1 If CFlerrorl < 0 Then > 

• If LastCFl% < 0 Then 

• CFlerrorcnt% =» CFlerrorcnt% + 1 'This is the # of contiguous errors 

• If CFlerrorcnt* > CInt (Param_tbl$ (928, 2)) Then 

• frmWPsetupiMhReallnputl (5) .Text - f rmWPsetup IMhReallnputl (5) . Text +■ CDbl (Parattn_ 
tbl$(927, 2)) 

1 VarChangeFlag% (12) =1 . 

■ CFlerrorcnt% - 0 
' End If 

• Else 
LastCFl% » 1 

1 CFlerrorcnt* « 1 

• End If 
1 Else 

' If LastCFl% > 0 Then 

• CFlerrorcnt* » CFlerrorcnt% + 1 

• If CFlerrorcnt% > CInt (Param_tbl$ (928, 2)) Then 

frmWPsetup!MhRealInputl(5) .Text = f rmWPsetup IMhReallnputl (5) . Text - CDbl(Param_ 

tbl$(927, 2)) 

' VarChangeFlag% ( 12 ) =* 1 

1 CFlerrorcnt% =» 0 

• End If 
1 Else 

■ LastCFl% = -1 

' CFlerrorcntft = 1 

End If 
' End If 

End Sub 
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* Program 
•Creation date 
•Module 
•Version 
•Edit 

•Edit date 
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General 

02-Apr-97 

PLC_module . HAS 

V2.0 

-00 

02-Nov-OO 

Joseph B. Schutte III 
Industrial Light & Motion, Inc. 
2170 Van Blaricum Rd. 
Cincinnati OH USA 



•Copyright (C) 1997-2000 Industrial Light & Motion, Inc. 



•Revision History. 



'Ver/Edit 
•V2.0-00 
'VI. 0-01 



Edit date 

02— Nov— 00 

03- Apr-97 



Who Reason 

JBSIII Rewrite logic for Press_00 
JBSIII Add Run/Stop function 



Option Explicit 



PLC Discrete Input 



finitions 



•Parallel I/O channel definitions: 



28-Sep-00 11:05 



• Inputs 
• Channel 



•100 
•101 
'102 
•103 
•104 
•105 
•106 
•107 



•108 
'109 
'110 
•111 
'112 
•113 
•114 
•115 



'116 
•117 
'118 
•119 
'120 
'121 
»I22 
•123 



•124 
•125 
•126 
•127 
•128 
'129 
•130 
•131 



Function 



ESTOP 

Intaglio PB: Wiping Jog 
Intaglio PB: 
Intaglio PB: 
Intaglio PB: 
Console: STOP 
Console: RUN 
Console: JOG 



Press Jog 
Product Calibrate 
Wiping Calibrate 



Console: Line speed Increase 
Console: Line speed Decrease 
Console: Press Enable Keyswitch 
Console: Product Vacuum Box Blower 
Console: Wiping Vacuum Box Blower 
Rt Intaglio PB: Press Run 
Rt Intaglio PB: Press Jog 
Rt Intaglio PB: Press Stop 



Console Jam-up stop button 

Intaglio Outfeed Webbreak switch 

Wired to #17 was Cutoff infeed Webbreak switch 

Wiping paper Infeed Webbreak switch 

Web Splice detect 

Hydraulic Pressure OK sensor 

Rt Intaglio PB: Wiping Jog PB 

Rt Intaglio PB: Press speed Increase 



Rt Intaglio PB: Press speed Decrease 

Rt Intaglio PB: Wiping Nip manual OFF/ ON 

Wiping Drive ready 

Main Drive ready 

SHI Over temp 

SH2 Overtemp 

Rt Intaglio PB: Prewipe manual Nip Off /On 
Rt Intaglio PB: Inker #1 manual Run 
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»I32 Rt Intaglio PB: Inker #2 manual Run 

«I33 Rt Intaglio PB: Inker #1 manual Nip Off /On 

•134 Rt Intaglio PB: Inker #2 manual Nip Off /On 

'135 Rt Intaglio PB: Inker #1 manual Run 

'136 Rt Intaglio PB: Inker #2 manual Run 

•137 Rt Intaglio PB: Inker #1 manual Nip Off /On 

'138 Rt Intaglio PB: Inker #2 manual Nip Off /On 

'139 Numbering Unit #1 Off /On Wire #308 



•140 Numbering Unit #2 Off /On Wire #307 

'141 Numbering Unit Web break Wire #306 - Not installed 

'142 Sheeter: Press Jog Wire #303 

'143 Sheeter: Press Stop Wire #304 

'144 Sheeter: Jamup Stop Wire #305 

'145 Intaglio Guard 

'146 Numbering Guard 

•147 Sheeter Guard 



'148 
•149 

»I50 Sheeter: Press speed Increase Wire #300 

»I51 Sheeter: Press speed Decrease Wire #301 

'152 

•153 Unwind Core sensor 

»I54 Delivery Table Down LS 

'155 Sheeter: Press Run Wire #302 



'156 Flexo PB's: Press Stop 

•157 Flexo PB's: Press Jog 

•158 Flexo PB's: Press Run 

'159 Flexo PB's: Increase Line Speed 

»I60 Flexo PB's: Decrease Line Speed 

•161 Flexo PB's: Auto/Manual PB 

'162 Flexo PB's: Rewind Forward Select 

•163 Flexo PB's: Rewind Reverse Select 



•164 
•165 

'166 Unwind Web break 

'167 Flexo-Intaglio Web break 

'168 Chill Rolls Web break 

'169 Sheeter Web break 

'170 

'171 Flexo/Die Jam-up stop buttons 

'PLC Discrete Output Definitions 
1 Outputs 

' Channel Function 



»O00 Power ON (Mains) 

»O01 Intaglio PB: Product Calibrated 

•O02 Intaglio PB: Wiping Calibrated 

•O03 Primary Power Transformer Contactor 

'O04 Main Drive Contactor 

»O05 Main Drive Enable 

'O06 - Main Drive RAMP Relay 

•Q07 



•O08 Wired to #35 Web Cleaner / Vac box blower starter 

»O09 Inker #2 Drive enable relay 

'O10 Main Drive brake relay 

'Oil Splice Detector enable 

•Ol2 Hydraulic Pump Contactor 

•Ol3 Hydraulic Pressure LOW mode solenoid 
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»014 Intaglio Impression ON solenoid 

'015 Inker #1 Drive enable relay 



'016 Inker #1 Nip ON solenoid 

»017 Prewipe Roll engage solenoid 

■018 Wiping Drive Contactor 

«019 Wiping Roll engage solenoid 

«O20 Wiping Drive enable 

»021 Inker #2 Nip ON solenoid 

■022 Wiping Rewinder Drive enable 

■023 Wiping Rewinder Brake enable/ 



'024 Cutoff Unit Infeed drive enable 

i 0 25 Cutoff Unit Infeed Brake enable/ 

'026 Cutoff Unit Drive enable 

•027 Cutoff Unit Brake enable/ 

t Q 28 Rt Intaglio PB: Wiping Nip ON 

»029 Rt Intaglio PB: Prewipe Nip ON 

• 030 Rt Intaglio PB: Inker #1 Running 

«031 Rt Intaglio PB: Inker #1 Nip ON 



• — — — . — — 

«032 Rt Intaglio PB: Inker #2 Running 

'033 Rt Intaglio PB: Inker #2 Nip ON 

«034 Flexo Impression Solenoid 

■ 035 Flexo Auto/Manual Solenoid 

»036 Flexo Rewinder Forward Solenoid 

i 037 . Flexo Rewinder Reverse Solenoid 

t 0 38 Flexo UV Unit Enable solenoid 

• 039 Product Vacuum blower solenoid 



iq40 Wiping Vacuum blower solenoid 

»041 Scrap blower solenoid 

• 042 Numbering. Unit 1 ON solenoid 

• 043 Numbering Unit 2 ON solenoid 
•044 

»045 

»046 Motion warning bell 

•047 



Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 



ActualLinSpeed% 
ActualWipingSpeed% 
DecelMode% 
FlexoImpsControlfc 
Flexo limp sManual % 
GuardsOK% 
GuardsBypassed% 
Hydraulics % 
IntaglioImpsControl% 
IntaglioImpsManual% 
IntaglioWipeControl% 
IntaglioWipeManual% 



Actual Line Speed in FPM 

Actual (commanded) Wiping Speed FPM 

Determines decel rate; normal-0, web break^l 

0-off 1-manual 2-auto 

0-off 1-manual on 

Set when" no guard switches open 

Set when operator bypasses switches in Wpsetup 

0-off 1-low 2 -normal 

0-off 1-manual 2-auto 



0-off 1-on 

0-off 1-manual 2-auto 
intagj-iowxperaanuax-o 0— of f l-*on 
IntaglioPrewipeControl* ' 0-off 1-manual 2-auto 
Intaglio PrewipeManual% '0-off% 1-on 
IntaglioInkerlControl% ■ 0-off 1-manual 2-auto 
IntaglioInkerlnip% 1 0-off 1-on 
IntaglioInkerlManrun% 1 0-off 1-on 
IntaglioInker2Control% 1 0-off 1-manual 2-auto 
IntaglioInker2nlp% 1 0-off 1-on 
IntaglioInker2Manrun% '0-off 1-on 



JamButtonsOK% 
JogRequest% 
JogSpeed% 
Keyswitch% 
LastTlineSpeed% 
LastlntaglioRmodefc 



'Intermediate variable set when all jam btns OFF 
'Set when operator presses Jog button 
•Press Jog Speed 
'State of console keyswitch 
'Previous scan line TargetLineSpeed% 
'Last intaglio run mode 
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Global 
Global 
Global 
Global 
Global 
• Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 



Las tint aglioWipemode% 
Las t RunMode % 
LinSpeedlntegrator ! 
MachineOKtoRun% 
MachineRunning% 
MaxLlneSpeed% 
MinLineSpeed% 
MSIntaglioJogReq% 
MSWipingJogReq% 
MSWipingImpReq% 
Numbering_JL_on% 
Numbering_2_on% 
PilerInhAuto% 
PLC_RunMode% 
ProductCalRequest* 
ProductCalReqS% 
RequestFastStop% 
RequestNormStop* 
RunMode% 
RunRequest* 
S cr apReques t % 
SetupOK% 

TargetLinSpeed% • 
WebBreaksOK% 
WipingCalReques t% 
WipingCalReqS% 
WipingJogReq% 
WipingWinderEna* 



Dim PLC 
Dim PLC" 
Dim PLC" 
Dim PLC" 
Dim PLC" 
Dim PLC" 
Dim PLC" 
Dim PLC" 
Dim PLC" 
Dim PLC" 



tl% 
t2% 
t3% 
*t4% 
*t5% 
t6% 
t7% 
"t8% 
t9% 
'tl0% 



'Last scan intaglio wiping mode 
'Previous scan RunMode % 
'Used for speed ramp generator 
'Bit set when machine is ready to run 
•Set when machine in the RUN mode 
'Maximum line speed in strokes per min x 10 
'Minimum line speed in strokes per min x 10 
'Motion system request for Intaglio Jog 
'Motion system requet for Wiping Jog 
'Motion system request for Wiping Imps 
'Numbering unit 1 sequencer 
•Numbering unit 2 sequencer 
'Set when High piler prox switch disabled 
'Must be set for PLC code to execute 
♦Set when Operator presses cal button 
•Variable from screen request for cal 
'Set when a one second stop required 
•Set when normal stop has been requested 
'Decoded mode from PLC logic 

'Operator has requested run, timing commensing 
•VB screen activates and we map to Output here 
•True when sufficient setup data avail for cal 
Operator setpoint line speed FPM = Value / 10 
•Set when no web break switches tripped 
•Set when operator presses cal button 
•Variable for signal from screen for req. 
'Variable for Wiping jog status 
'Enable status of wiping rewinder 

•Temporary working registers 



Public Sub PLC_FirstScan() 

'This routine handles all initial settings by being called on powerup. 
Dim 1% 

Call ScanPLCInputs 

MachineRunriing% » 0 'Machine run state; initially stopped 

DecelMode% = 0 'Normal stop when 0, Jamup/Webbreak stop when 1 

RequestNorraStop% = 0 

RequestFastStop% = 0 

JogRequest% = 0 

WipingCalReques t% = 0 

ProductCalRequest% - 0 

MachineCalibrated% = 0 

FlexoCalibrated% = 0 

IntaglioCalibrated% » 0 

LastIntaglioRmode% *= 0 

PilerInhAuto% - 0 

JamButtonsOKfc =» 1 

Numbering__l_on% = 0 

Numbering_2_on% «■ 0 

GuardsOK%~~« 1 

ScrapRequestft = 0 

WipingWinderEna% « 0 

frmP00Intaglio!Label57. Visible « True 
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frmP00Intaglio!Label7 .Visible » False 
frmP00Intaglio!LabelS. Visible = False 
* Call Hyd Init_Of f 

Call IntIraps_Init_Off 
Call IntWipe_Init_Off 
Call IntPrewipe_Init_Off 
Call Intlnkerl_lnit Off 
Call IntInker2_Init~Off 
WebBreaksOK% » 1 

MinLlneSpeedft « CInt (Param_tbl$ (901, 2)) 
MaxLineSpeedft = CInt (Param_tbl$ (902, 2)) 

f rmPr ess run! Slider 1. Value » MinLlneSpeedft 'Get initial speed from parameter table 

PLC_Oft(0) a 0 'Main Power Off 

PLC_Oft(l) - 0 'Kill Product calibrated light 

PLC_Oft(2) = 0 'Kill Wiping calibrated light 

PLC_Oft(3) = 0 'Turn off primary xformer 

PLC_p%(4) ■ 0 'Turn off Main drive contactor 

PLC_Oft(5) = 0 'Turn off main drive enable 

PLC_p%(6) « 0 'Shift main drive ramp to fast 

PLC_0%(7) - 0 'Not Used 

PLC_Oft(8) = 0 'Scrap Blower primary 

PLC_Oft(9) = 0 'Disable #2 Inker 

PLCjDft(lO) - 0 'Engage Main drive brake 

PLC_Oft(ll) = 0 'Disable Splice Detector 

PLC_Oft<12) =• 0 'Turn off hydraulic pump 

PLC_Oft(l3) « 1 'Shift hydraulic pressure to low 

PLCJ0ft(l4) = 0 'Turn off Intaglio impressions 

PLC_Oft(15) a 0 'Disable Inker #1 drive 

PLC_Oft(l6) = 0 'Turn OFF Inker #1 Nip 

PLC_Oft(l7) = o 'Disengage Prewipe roller 

PLC Oft (18) « 0 'Turn off Wiping drive contactor 

PLC p% (19) - 0 'Disengage Wiping roller 

PLC_Oft(20) - 0 'Disable Wiping drive 

PLC_Oft(21) - 0 'Not Used 

PLC_Oft(22) = 0 'Disable Wiping rewind drive 
PLC_Oft(23) » 0 'Enable Wiping rewind brake 
PLC_Oft{24) = 0 'Disable Cutoff Unit infeed drive 
PLC_Oft{25) - 0 'Enable Cutoff unit infeed brake 
PLCjOft(26) « 0 'Disable Cutoff unit drive 
PLC_Oft(27) ■ 0 'Enable Cutoff Unit brake 
PLC_Oft(28) = 0 'Kill Wiping nip on light 
PLC_Oft(29) ■ 0 'Kill Prewipe nip on light 
PLC__O%(30) - 0 'Kill Inker #1 running light 
PLC_Oft(31) - 0 'Kill Inker #1 nip on light 
PLC_Oft(32) a 0 'Kill Inker #2 running light 
PLC_Oft(33) = 0 'Kill Inker #2 nip on light 
PLC Oft (34) ■ 0 'Turn off Flexo Impression soleniod 
PLC Oft (35) « 0 'Select Flexo Manual mode 

PLC Oft (36) = 0 'Turn off Flexo Rewinder forward solenoid 

PLC 6ft (37) = 0 'Turn off Flexo Rewinder reverse solenoid 

PLC_Oft(38) =» 0 'Disable Flexo UV System 

PLC Oft (39) 83 0 'Turn off Product vacuum blower 

PLC Oft (40) = 0 'Turn off Wiping vacuum blower 

PLC Oft (41) = 0 'Turn off scrap blower 

PLC_Oft(42) « 0 'Not used 

PLCj0ft(43) - 0 'Not used 

PLC_Oft(44) = 0 'Not used 

PLC__Oft(45) a 0 'Not used 

PLC Oft (46) « 0 'Motion warning bell 

PLC_Oft(47) = 0 'Not used 



Call StrobePLCOutputs 
PLC^RunModeft « 1 'Enable scanning 
End Sub 
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Public Sub PLC__Scan() 

•This routine gets called every N milliseconds by the MAIN. FBM PLC 
'timer. The equations" will be evaluated only if RunMode% is set as 
'non-zero. 

Dim 1%, J% 

MachineCalibrated% » 255 •?????????????? Temporary force OK 

If PLC_RunMode% O 0 Then 

Call ScanPLCInputs 'Read the PLC inputs 

If PLC_I%(0) - 0 Then 

Call PLC_FirstScan 
Else 'If we're ESTOP do nothing but hold off outputs 

If (PLCJC%(0) <> 0) And (PLC_I%(1) - 0) And (PLC_I%{2) = 0) And (PLC_O%(0) - 0) Then 

PLC_0% ( 0 ) =1 ' Systemwide power on flag 

PLC_0%(3) = 1 'Primary transformer contactor 
End If 

•Look for Main power on request 

If SysMode% » 0 Then 'Flexo only mode 

PLC_p%(4) 53 0 'Main drive contactor 

PLC_0%(18) = 0 'Wiping drive contactor 

Else 'Combi mode - turn on drives 

PLC_0%(4) = 1 

PLC_0%(18) = 1 
End If 

If ( ( (PLC_I%(44) <> 0) Or (PLC_I%(16) » 0) Or (PLC_I%(71) » 0)) And JamButtonsOK* = 1) T 

hen 

JamButtonsOK% = 0 
RequestFastStop% » 1 
End If 

•Handle Jam up Stop buttons / switches 

If ( (PLC_I% (44) » 0) And JamButtonsOK% = 0) Then 

JamButtonsOK% = 1 
End If 

•Detect end of jam up stop condition 

If ((PLC_I%(6) <> 0)-Or (PLC_I%(13) <> 0) Or (PLC_JE%(55) <> 0) Or (PLCJEft(58) <> 0)) And 
(MachineOKtoRun** <> 0) And (Ma chine Running* « 0) Then 
RunRequest% = 1 
Else 

RunRequestS = 0 
End If 

•Handle Run buttons 

If (PLC_I%(5) <> 0) Or (PLC_I%(15) <> 0) Or (PLC_I%(43) <> 0) Or (PLC_I*(56) = 0) Then 

RunRequestfc = 0 'In case they just pressed the Run button 

RequestNormStop% = l 'Sequence machine to stop 
End If 

'Handle the Normal Stop buttons 

•If (PLC_I%(21) O 0) Or (PLC_I%(54) <> 0) Then 

' RunRequest% = 0 •In case they just pressed the Run button 

• RequestNormStopfc « 1 'Sequence machine to stop 

'End If 

•Handle the Machine induced stops that do not require Fast Stops 

If ((PLC I%(2) <> 0) Or (PLC_Ift(7) <> 0) Or (PLC_I% (14)' <> 0) Or (PLC_I% (42) o 0) Or (P 
LC_i%(57) <> 0))~And (Ma chine Running* = 0) And ( JamButtonsOKft <> 0) Then 
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JogRequest% = i 
End If 

•Handle the Jog buttons Machine must be not be running or in jam up stop state 
■Jog and Increase buttons together cause Turbo jog 4X speed 

If ((PLC_I%(2) = 0) And (PLC_I%(7) - 0) And (PLC_I%(14) = 0) And (PLC_I%<42) = 0) And (P 
LC I%(57) « 0) And (JogRequest% = 1)7 Then 

*~ JogRequest* = 0 1 Terminate Jog if they released the button 

End If 

If ((PLC_I%(1) <> 0) Or (PLC_I%(22) <> 0)) And (IntaglioWipeControl% =* 1) And (MachineRu 
nning% » 0) Then 1 Wiping Jog PB pressed 
WipingJogRegfc = 1 
End If 

'Look for a Wiping Jog button 

If (PLC_I%(1) - 0) And {PLC_I%(22) = 0) And ( Wiping JogReq% = 1) Then 

Wiping JogReq% » 0 
End If 

'Look for Wiping Jog button release 

If (<PLC_I%(3) <> 0) Or (ProductCalReqS* <> 0)) And <MachineRunning% = 0) And (JogReques 
t% - 0) Then 

ProductCalRequestfc » 1 'Set the calibrate status bit 
End If 

'Detect Operator Cal product request 

If {{PLC I%{3) o 0) And (ProductCalReqS% = 0)) Or (Product Cal ibr a ted% = 255) Then 

ProductCalRequest% = 0 'Clear the Homing request 
End If 

'Operator has released the Calibrate / Homing button 

If ((PLCJE%{4) <> 0) Or (WipingCalReqS* <> 0)) And (MachineRunning% « 0) And (JogRequest 
% = 0) Then 

WipingCalRequest% - 1 'Set the calibrate status bit 
End If 

'Detect Operator Cal wiping request 

If ((PLCJT%(4) = 0) And (WipingCalReqS% ~ 0) ) Or (WipingCalibrated% = 255) Then 

WipingCalRequestfc « 0 'Clear the calibrate request 
End If 

•Operator has released the Calibrate / Homing button 

If ProductCalibratedfc = 255 Then 

PLC__0%{1) « 1 'Activate Product calibrated light 
frroPOOIntaglioILabell. Visible «■ True 
frmPressrun!Label39.BackColor ' =* &HFFQ0& 'Green 
Else 

PLC_p%(l) « 0 

frmPOOIntaglioILabell. Visible « False 
frmPressrun!Label39.BackColor => &HFFFFFF 
End If 

'Monitor product calibrated status and map to light 

If WipingCalibrated% *= 255 Then 

PLC_0%(2) « 1 'Activate Wiping calibrated light 
frmP00Intaglio!Label24. Visible =* True 
frmPressrun!Label40.BackColor = &HFF00& 'Green 
Else 

PLC_p%{2) *= 0 

frmP00Intaglio!Label24. Visible = False 
frmPressrunfLabel40.BackColor » &HFFFFFF 'White 
End If 

•Monitor .Wiping calibrated status and map to light 

J% = PLC I%(17) + PLC_I%(66) + PLCJC%(67) + PLC_I%(68) 

If CutoffEnable* <> 0 Then JB = J% + PLC_I%{69) 'Use sheeter if enabled 
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If NumberingEnable% <> 0 Then J% ■ J% + PLC_Ift(41) 'Use numbering if enabled 
If (J% <> 0) Or ((PLC_I%(19) <> 0) And <SysMode% <> 1)) Then 

WebBreaksOK% « 0 

Else 

WebBreaksOK% - 1 
End If 

'Monitor Web break switches; 1 » OK 0 =» Break 
•Only test wiping if we're using it 

If UPI*Cjr%(45) = 0) Or (PLC_I%(46) = 0) Or (PLC_I%(47) - 0)) Then 
GuardsOK% =» 0 
Else 

GuardsOK% - 1 
End If 

If GuardsBypassed% = 1 Then GuardsOK% = 1 'Operator bypass on POOFlexo 
'Monitor guard switches; 1 = OK 0 = Door open 

If ( (WebBreaksOK% » 0) Or (GuardsOK% « 0) Or ( JamButtonsOK% » 0) Or (MachineCalibrated% 
O 255) ) Then 

RunRequest% = 0 

MachineOKtoRun% = 0 'Some fault condition exists 
. Else 

MachineOKtoRun% = 1 'All subsystems OK 
End If 

'Monitor all machine fault detectors 

If (MachineRunning% = 2) And (MachineOKtoRun% = 0) And (RequestFastStop% = 0) Then 

Request Fas tStop% = 1 
End If 

•Monitor Web break and guard switches 

Keyswitchft = PLCJT%<10)* 'Map Keyswitch to variable 
If Keyswitch% O 0 Then 

f rmPress run !Label20. Visible = True 

Else 

frmPressrun!Label20. Visible = False 
End If 

If (<PLC_I%(8) <> 0) Or <PLC_I%(23) <> 0) Or (PLCJCS (50) <> 0) Or <PLC_I%(59) <> 0)) The 

n 

If <<PLCJC%(2) <> 0) Or (PLC_I%(7) O 0) "Or (PLC_I%(14) <> 0) Or <PLC_I%(42) O 0) O 
r <PLCJE%(57) <> 0)) Then 

TargetI»inSpeed% = TargetI»inSpeed% + 0 
Else- 

1% => TargetLinSpeed% + 1 
f rmPr ess run I Slide rl. Value = 1% 
End If 
End If 

'Handle Increase speed buttons. 4000 = 400 Feet per min 

If {(PLC_I%(9) O 0) Or (PLC_I%{24) <> 0) Or (PLCJL%(51) O 0) Or <PLC_I%{60) <> 0) J The 

n 

1% = TargetLinSpeed% - 1 
f rmPress run! Slider 1. Value = 1% 
End If 

'Handle Decrease speed button 

If ((PLC_I%(8) O 0) And (PLC_I%(9) o 0)) Or ((PLC_I%(23) <> 0) And (PLC_I%(24) O 0)) 

Then 

frmPressrun! Slider 1. Value =25 
End If 

If <(PLC_I%(50) O 0) And (PLC_Ifc(51) <> 0)) Or <{PLC_I%(59) <> 0) And (PLCJE%(60) O 0) 

) Then 

frmPressrun! Slider l.Value » 25 
End If 

'Hidden speed jump, to 25 FPM 
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If ( (PLC I%(20) <> 0) And (PLC_0%(11) o 0) And ( Machine Running* o 0) And (MachineRunni 
ng% <> 5) ) Then 

RequestFastStop% = 1 
End If 

•Detect splices when machine is running 

If ((PLC_I%{53) <> 0) And (MachineRunning% <> 0) 'And (MachineRiinning% <> 5)) Then 

Request Fast St op% ~ 1 
End If 

■Mill roll out (core sensor) 

If ((PLC_I%(62) <> 0) And (PLCJT%{63) - 0)) Then 
PLC_0%<36) = 1 
Else 

PLC__0%(36) = 0 
End If 

•Control product rewinder forward solenoid 

If ( (PLC_I%(63) <> 0) And (PLC_1%(62) - 0)) Then 
PLC_G%(37) =1 
Else 

PLCJD%(37) = 0 
End If 

•Control product rewinder reverse solenoid 

If (WipingWinderEna% = 0) And (PLC_C%(22) <> 0) Then 

PLC_0%(22) = 0 •Kill enable 

PLC_0%(23) = 0 'Enable brake 
End If 

If (WipingWinderEna* > 0) And (PLC_0%(22) = 0) Then 

PLC_0%(22) = 1 'Kill enable 

PLC_0%(23) = 1 1 Enable brake 
End If 

• This the Wiping rewinder logic 

PLC 0%(39) = PLC_I%(11) "Map the Product Vacuum blower 
PLC_O%(40) = PLC_I%(12) 'Map the Wiping Vacuum blower 

If ((PLC_I%(39) O 0) And (PLCJE_Last% (39) = 0)) Then 

Call Numbers l_Man__Toggle 
End If 

If <(PLC_I%<40) <> 0) And (PLC_I_Last% (40) = 0)) Then 

Call Numbers2_Man_Toggle 
End If 

PLC_0%<42) = Numbering_l_on% 
PLC_Q%(43) = Numbering_2_ on% 
•Map the Numbering unit controls 

PLC_0%(41) = ScrapRequest% 
PLCJD%(8) « ScrapRequest% 

Select Case Hydraulics % » Hydraulic System Control 
Case 0 'Off 

PLC_0%(12) - 0 'Pump motor 
PLC 0%(13) = 0 'Pressure control 
Case 1 'Low, pressure 
PLC 0%(12) =1 
PLC_Q%(13) = 1 
Case 2 •Normal pressure 
PLC_Ofc(12) » 1 
PLC_0%(13) = 0 
End Select 



Select Case Flexo Imps Control % 'Flexo Impression Control 
Case 0 • Off 

PLC Q%(35) = 0 • Manual control 
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PLC_0%(34) = 0 'Turn off output 
Case 1 * Manual 

PLC_Oft(35) = 1 ' Auto solenoid 

If ( (PLC_I%(61) <> 0) And (PLC_I_Last% (61) = 0)) Then 

Call FlexoIraps_Man_Toggle 
End If 

PLC_0%(34) = FlexoImpsManual% 
Case 2 'Auto 

PLC_p%(35) = 1 'Auto solenoid on 

If <ActualLinSpeed% > Param_tbl$ (909, 2)) Then 

PLC_0%(34) - 1 

Else 

PLC_0%(34) » 0 
End If 
End Select 



Select Case IntaglioImpsControl% 'Intaglio Impression Control 
Case 0 ' Off 

PLC_Q%(14) = 0 'Turn off output 
Case 1 ' Manual 

PLCjO%(14) = IntaglioImpsManual% , 
Case 2 'Auto 

If (ActualIiinSpeed% > Parazn_tbl$ (910, 2)) Then 
PLC_0%(14) =» 1 
Else 

PLC_0%(14) » 0 
End If 
End Select 



Select Case IntaglioWipeControl% 'Intaglio Wiping Control 
Case 0 ' Off 

PLC_0%(19) » 0 'Turn off output 
PLC_0%(28) « 0 'Kill the light 

Case 1 ' Manual 

If ( (PLC_I%(25> <> 0) And (PI,C_I_Lastft (25) = 0)) Then 

Call IntWipe_Man_Toggle 
End If 

PLC_0%(19) = IntaglioWipeManual% 
PLC_p%(28) = IntaglioWipeManual% 

If (WipingCalReguest% <> 0) And (MSWipingImpReq% <> 0) Then 

PLC_0%(19) - 1 'Force if calibrating 

PLC__0%(28) = 1 
End If 

Case 2 'Auto 

If MSWipingImpReq% <> 0 Then 
PLCJ3%(19) = 1 
PLC_0%(28) » 1 
Else 

PLCjD%(19) =0 
PLC_0%(28) = 0 
End If 

End Select 



Select Case IntaglioPrewipeControlft 'Intaglio Prewipe Control 
Case 0 ' Off 

PLC_0%(17) « 0 'Turn off output 
PLC_Oft(29) - 0 'Kill the light 
Case 1 ' Manual 

If ( (PLC_JE%(30) <> 0) And (PLC_I_Last% (30) » 0)) Then 
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Call IntPrewipe_Man_Toggle 
End If 

PLC_p%(17) = IntaglioPrewipeManual% 
PLC_0%(29) = IntaglioPrewipeManual% 
Case 2 'Auto 

If (ActualLinSpeed* > Param_tbl$ (912, 2)) Then 
PLC_Oft(17) =1 
PLC_0%(29) = 1 
Else 

PLC_0« (17) = 0 
PLC_0%(29) = 0 
End If 
End Select 



Select Case IntaglioInkerlControl% 'Intaglio Inker #1 Control 
Case 0 ■ Off 

PLC_0%{15) = 0 'Turn off drive enable 
PLC_p%(16) = 0 'Turn off nip output 
PLC_O*(30) = 0 'Turn off the lights 
PLC_0%(31) = 0 
Case 1 ' Manual 

If ((PLC_I%(33) <> 0> And (PLC_JI_Last% <33) =0)) Then 

Call Inker lnip_Man_Toggle . 
End If 

PLC_0%(16) IntaglioInkerlnip% 
PLC_0%(31) - IntaglioInkerlnip% 

If ((PLC_I%(31) <> 0) And (PLCJ£_Last% (31) = 0)) Then 

Call Inker lrun_ManJToggle 
End If 

PLC_0%(15) « IntaglioInkerlManrunfc 
PLC_O%(30) « IntaglioInkerlManrunfc 
Case 2 'Auto 
PLC_0%(15) ■» 1 
PLCJ0%<30) « i 

'Enable on run - speed calc'ed elsewhere 

If (ActualLinSpeed% > Param_tbl$ (915, 2)) Then 

PLC_0%<16) = 1 

PLC_0%(31> = 1 

Else 

PLC_pft(16) = 0 
PLC_0%(31) = 0 
End If 
End Select 



Select Case Intaglio Inker 2Control% 'Intaglio Inker #2 Control 
Case 0 ' Off 

PLCjO%(9) « 0 'Turn off drive enable 
PLC_0%<21) = 0 'Turn off nip output 
PLC_0%(32) = 0 'Turn off the lights 
PLC_0%(33) « 0 
Case 1 ' Manual 

If ((PLC_JE%(34) O 0) And (PLC_I_Last% (34) « 0)) Then 

Call Inker2nip_Man_Toggle 
End If 

PLC_0%(21) » IntaglioInker2nip% 
PLC 0%(33) = IntaglioInker2nip% 

If ((PLC_I%(32) O 0) And (PLC_I_Last% (32) = 0)) Then 

Call Inker2run_Man__Toggle 
End If 

PLC 0%(9) = Intaglio Inker2Manrun% 
PLC~"b%(32) = IntaglioInker2Manrun% 
Case 2 'Auto 
PLC 0%(9) = 1 
PLC_0%(32) = 1 

'Enable on run - speed calc'ed elsewhere 
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If (ActualLinSpeed% > Param_tbl$ (915, 2)) Then 
PLC_0%(21) » 1 
PLC_0%(33) = 1 
Else 

PLCjO%(21) = 0 
PLCJ>%(33) = 0 
End If 
End Select 



End If 'End of the ESTOP else If thingy 
Call Strobe PLCOutputs 'Update the PLC outputs 
End If 
End Sub 

Public Sub UpdatelntaglioDrive ( ) 

' Routine writes I/O needed control Intaglio Main drive 

If 3ysMode% <> 0 Then 'We're in combi mode 
Select Case RunMode% 

Case 0 'Normal Stop mode 

If Las tint aglioRmode% <> 0 Then 'We're initiating 

LastlntaglioRmodeft «= 0 
End If 

If LinSpeedlntegrator* > 0 Then 

LinSpeedlntegrator ! » LinSpeedlntegrator ! - Val (ParamJ:bl$ (905, 2)) 
End If 

Call AioOut(0, LinSpeedlntegrator! * Param_tbl$ ( 923, 2) * (24 / f rmConfig!MhRealInput7 .V 
alueReal) ) 

If ( (ActualLinSpeed% < 3) And (PLC_O%(10) <> 0) ) Then 

PLCjOft(5) = 0 'Disable drive 

PLC_Oft(10) = 0 'Enable brake 
End If 

Case 1 'Calibration mode 

If LastlntaglioRmode* <> 1 Then 'We're initiating 

LastIntaglioRmode'% » 1 
End If 

If IntaglioCalReq% <> 0 Then 'We need to move Main 
PLC_0%(5) = 1 'Enable drive 
PLC_p%(6) = 0 'Fast ramp 
PLC O%(10) = 1 'Brake off 

Call AioOut (0, Val(Param_tbl{908, 2)) * Param_tbl$ (923, 2)) 
Else 

PLC_0% (5) « 0 'Enable drive 
PLCJ3%(10) = 0 'Brake off 
Call AioOut (0, 0) 
End If 

Case 2 'Normal Run mode 

If LastlntaglioRmode* <> 2 Then 'We're initiating 

PLC 0%(5) = 1 'Enable drive 

?lxTp%(6) «= 1 'Slow ramp 

PLC_O%(10) = 1 'Brake off 

LastIntaglioRmode% = 2 
End If 

If LinSpeedlntegrator! < TargetLinSpeed% Then 

LinSpeedlntegrator ! = LinSpeedlntegrator ! + Val ( Param_tbl$ ( 905 , 2 ) ) 
End If 

If LinSpeedlntegrator! > Targe tLinSpeed% Then 
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LinSpeedlntegrator! = LinSpeedlntegrator ! - Val ( Param__tbl$ (905, 2)) 
End If 

Call AioOut(0, LinSpeedlntegrator I * Param__tbl$ (923, 2) * (24 / frmConfiglMhRealInput7 .V 
alueReal) ) 

Case 3 'Fast Stop 

If LastIntaglioRmode% <> 3 Then 'We're initiating 

Call AioOut{0, 0) 'Null the command 

PLC_p%(6) o 0 'Fast ramp 

PLC 0%(5) « 0 'Disable drive 

PLC~O%(10) « 0 'Apply full brake 

LinSpeedlntegrator! = 0 

LastIntaglioRraode% « 3 
End If 

Case 5 ' Jog mode 

If LastIntaglioRmode% <> 5 Then 'Init 

PLC_p%(5) = 1 ''Enable drive 

PLC_p%(6) = 1 'Slow ramp 

PLC_O%(10) = 1 'Brake off 

LastIntaglioRmode% = 5 
End If 

If (<PLCjr%(8) O 0) Or (BLC_I%(23) O 0) Or (PLCJC%(50) O 0) Or (PLC_I%(59) O 0)) The 

n 

Call AioOut(0, JogSpeed% * 4 * Param_tbl$ (923, 2)) 
Else 

Call AioOut(0, JogSpeed% * Param_tbl$ (923, 2)) 
End If 
End Select 

End If 

End Sub 

\ 

Public Sub UpdateWipingDrive ( ) 

•Routine handles logic for Intaglio Wiping Drive 
Dim 1% 

If (SysMode% <> 0) Then 

Select Case IntaglioWipeControl% 'Decode the mode 

Case 0 'Offline mode 

If LastIntaglioWipemode% <> 0 Then 

Call AioOut(l r 0) 'Command zero sj>eed 

PLC_O%(20) = 0 'Disable Drive" 

PLC_0%(18) = 0 1 Turn off contactor 

LastIntaglioWipemode% = 0 
End If 

Case 1 'Manual mode 

If LastIntaglioWipemode% <> 1 Then 

PLC_0%(18) = 1 'Fire up drive 

LastIntaglioWipemode% = 1 
End If 

If (RunMode% = 0) And <MSWipingJogReq% = 0) And (ActualLinSpeed% = 0) And (PLC_O%<20) <> 
0) Then 'We're stopped waiting for jog or ... 

ActualWipingSpeed% « 0 

PLC_O%<20) =» 0 'Disable drive 

Call AioOutd, 0) 'Zero velocity command 
End If 

If { (RunMode% = 0) And (ActualLinSpeed% > 0) ) Or (RunMode% « 2) Then 'Generate command 
If PLC_O%(20) - 0 Then PLCJ0% (20) = 1 'Be sure drive enabled 
ActualWipingSpeedfc = ActualLinSpeed% * frmPOOIntaglio! Slider 5. Value / 100 
ActualWipingSpeed% = ActualWipingSpeedft * Val (Param__tbl$ (832, 2)) / System_circumf er 

ence# 
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1% = ActualWipingSpeed% * Val (Param_tbl$ (924, 2)) 
Call AioOutd, 1%) 

If d {R^nMode% = 8) And (MSWipingJogReq% <> 0) Then 'We're jogging 
PLC O%(20) = 1 'Enable drive 
ActualWipingSpeed* = Val <Paramtbl$ (925, 2)) 
- 1% = Val(Param_tbl$(924, 2)) * Val (Param_tbl$ (925, 2)) 
'Wiping velocity scale x Wiping jog speed 
Call AioOutd/ 1%) 'Jog velocity command 

If d (RunMode = 9) And (MSWipingJogReq% <> 0) Then 'We're calibrating 
PLC O%(20) = 1 'Enable drive 

ActualWipingSpeed% = VaJL (Param_tbl$ (929, 2)) 
1% = Val(Param_tbl$(924, 2)) * Val (Param_tbl$ (929, 2)) 
'Wiping velocity scale x Wiping calibrate speed 
Call AioOutd, 1%) ■Jog velocity command 
End If 

Case 2 'Auto mode 

If LastIntaglioWipemode% <> 2 Then 
PLC 0%(18) =» 1 'Fire up drive 
LastIntaglioWipemode% « 2 

If d (URunMode% = 0) Or (RunMode% = 3)) And (ActualLinSpeed% > 0)) Or (RunMode% - 2) Then 

'Generate command t m . . . 

If PLC O%(20) = 0 Then PLC_O%(20) = 1 'Be sure drive enabled 
ActualWipingSpeed% = ActualLin Speed* * frmP 00 Intaglio ! Slide r5. Value / 100 
ActualWipingSpeed% = ActualWipingSpeed% * Val (Paramtbl$ (332, 2)) / System_circum£er 

ence# ^ ^ ActualWipingSpeed% * Val (Param_tbl$ (924, 2)) 

Call AioOutd, 1%) 
End If 

If (RunMode% = 9) And (MSWipingJogReq% <> 0) Then 'Motion sys req 
If PLC O%(20) = 0 Then PLC_O%(20) = 1 'Be sure drive enabled 
ActualWipingSpeed% = Val (Param_tbl$ (929, 2)) 
Ift - ActualWipingSpeed% * Val ( Param_tbl$ (924, 2) ) 
Call AioOutd, 1%) 

If d ( : (RunM6de% - 0) Or (RunMode% - 3) ) And (ActualLinSpeed% = 0) And (MSWipingJogReq% = 0 
) Then Stop ^® d pLC ^ 0% (2Q) K> Q Then PLC _o%(20) = 0 'disable wipoing drive 
ActualWipingSpeed% » 0 
End If l - 

End Select 

Else 'We're in Flexo only mode 
PLC_O%(20) = 0 'Disable Drive 
PLC_p%(18) - 0 1 Turn off contactor 
LastIntaglioWipemode% = 0 
End If 

End Sub 

Public Sub UpdateMotionSystemRL ( > 

'This subroutine evaluates the PLC data and issues appropriate 
'commands to the motion cards 

Dim C%, 1%, S%, X, XI ' 
If (EnableHostPollingl% = True) And (EnableHostPolling2% « True) Then 

S% m RequestNormStop% + Request Fast Stop* + Keyswitch% 'Combine variables 

C% « WipingCalibrated% 

If IntaglioWipeControl% O 2 Then C% = 255 
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■Mask calibration, status if it's not in Auto 

If (SystemStatus% And &H300) = &H100 Then 

SystemStatusft =» SystemStatus% Or &H200 

1% =» CmdServo2ft ( n SysRun«0 w ) 

•We're powering up 
End If * 

If (SystemStatusft And &H300) = &H200 Then 

SystemStatusft = SystemStatus% And &HFCFF 

1% « CmdServo2%C , SysRun= s 9 w ) 

1 We're powering down 
End If 

If (JogRequest% <> 0) And ( <RunMode% = 0) Or (RunMode% = 3)) And (S% - 0) And (Startde^ 
y% o 0) Then 

Startdelay% » 1 
f noMain ! Timerl . Enabled = True 
PLCJD%(46) = 1 'start the bell 
, End If 

'Arm the motion timer 

If (JogRequest* = 0) And (RunRequest% » 0) And (Startdelay% <> 0) Then 

frmMain! Timerl, Enabled = False 

Startdelay% » 0 

PLC_Oft(46) = 0 
End If 

•Buttons released - Disarm the motion timer 

If (JogRequest* O 0) And ( <Startdelay% =» 2) Or (Ridethrudelayft <> 0)) Then 
frmMain ! Timerl * Enabled = False 'disable timer if not already 
frmMain! Timer 6. Enabled = False 'disable ride thru too 
Startdelay% - 0 
Ridethrudelay* = 0 
PLC 0%(46) = 0 

1% = CmdServolft{ M SysStat«0") 'Cancel calibration status 
1% = cmdServol% ( H SysRun=5* 1 ) 
1% = CmdServo2ft ( M SysRun=*5") 
LastRunModeft » RunMode% 
RunMode% = 5 
MachineRunning% = 5 
RunRequest% = 0 
End If 

•Jog button pressed 

If (JogRequest% = 0) And (RunModeft = 5) Then 
1% = CmdServol% ( **SysRun=0") 
Ift = cmdServo2%( ,, SysRun=0") 
LastRunModeft = RunMode% 
RunMode* =» 0 
MachineRunning% « 0 

Ridethrudelay% = 1 'Arm ride thru timer 
frmMain !Timer6. Enabled = True 
End If 

•Jog button released 

If <RunRequest% « 1) And <RunMode% - 0) And < Product Calibr a ted% O 0) And (Sft =* 0) And ( 
C% <> 0) And <Startdelay% = 0) Then 

Startdelay% = 1 

frmMain ! Timerl . Enabled =» True 

PLC 0%(46) = 1 
End If ~~ 

If (RunRequestft = 1) And ( (Startdelayft = 2) Or (Ridethrudelay% <> 0)) Then 
frmMain! Timerl. Enabled = False 
frmMain! Timer 6. Enabled = False 
Startdelay% = 0 
Ridethrudelay% =• 0 
PLC Oft (46) » 0 
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1% =» CmdServol%( w SysRun=2") 
1% = CmdServo2ft( ,, SysRun=2 w ) 
RunMode% = 2 
MachineRunningfe =» 2 
RunRequest% =» 0 
End If 

•Run button pressed 

If (RequestPastStop% <> 0) And (ActualLinSpeed% > 5) Then 

1% = CmdServolftpSysRun^O") 

1% - CmdServo2fc( ,, SysRun=0 M ) 

LastRunModeft = RunMode% 

RunMode% = 3 

MachineRunningft « 0 
End If 

RequestFastStop% « 0 

'Either Jamup PB or Web break occurred 

If (RequestNormStopft O 0) And (MachineRunningft <> 0) Then 

1% = CmdServolft("SysRun=O n ) 

1% = CmdServo2%( M SysRun=0 w ) 

I»astRunMode% 53 RunModeft 

RunModeft « 0 

MachineRunning% = 0 
End If 

RequestNormStop% *= 0 
•Normal Stop button pressed 

If ( Wiping JogReqft <> 0) And (MachineRunningft = 0) Then 

1% « CmdServolft ( M SysRun=8 rt ) 

1% = CmdServo2% ( "SysRun=8" ) 

LastRunModeft =» RunMode% 

RunModeft « 8 

MachineRunning% =» 8 
End If 

•Wiping Jog button pressed 

If {Wiping Jo gReq% = 0) And (RunMode% =* 8) Then 
1% = * CmdServolft ( "SysRun=0" ) 
1% = CmdServo2ft ( M SysRun=0 M ) 
LastRunMode% = RunModeft 
RunMode% = 0 
MachineRunning% = 0 
End If 

•Wiping Jog button released 

If WipingWinderEna% = 2 Then 'We 1 re in AUTO 

X = 1 - (PfcRewindDia - Paraia_tbl$ (962, 2)) / (Param__tbl$ (963, 2) - Param_tbl$ (962, 2 

J * XI = (fjoaConfigJMhReallnput 16. ValueReal - f rmConfig!MhRealInputl5 . ValueReal) * X 

XI = XI + frmConfiglMhReallnputlS. ValueReal 
frmPOOIntaglio! Slider 6. Value = XI 

End If 

Call AioOut(2, frmPOOIntaglio ! Slider 6. Value * Param_tbl$ (926, 2)) 
•Update the Intaglio Wiping rewinder vel command 

If ( Product Cal Request* <> 0) And (RunModeft =* 0) And (S% = 0) Then 

1% = (^Servolft( w SysRun=l") 

1% = CmdServo2% ( M SysRun=l n ) 

LastRunMode% = RunMode% 

RunModeft = 1 

MachineRunningft 33 1 
End If 

'Operator has pressed the Product Calibrate button 

If (RunModeft =• 1) And ( (ProductCalRequestft « 0) Or (Product Calibrated* » 255) ) Then 
1% » CmdServolft ("SysRun^O") 
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1% = CmdServo2% < n SysRun=0") 
LastRunMode% » RunMode* 
RunModeft » 0 
MachineRunning% « 0 

End If 1JL ^ 

•Operator released Product cal button or we're calibrated 

If (WipingCalRequest% <> 0) And (RunMode% « 0) And (S% = 0) Then 

1% = CmdServol%( n SysRun=9 n ) 

1% = CmdServo2%("SysRun=9 M ) 

LastRunMode% = RunMode% 

RunMode% « 9 
End If 

•Operator has pressed the Wiping Calibrate button 

If (RunMode% « 9) And ( (WipingCalRequest% = 0) Or (WipingCalibrated% = 255)) Then 
1% = CmdServol%( n SysRun=0") 
1% = CmdServo2% ("SysRun=0") 
LastRunMode% = RunMode% 
RunMode% = 0 
MachineRunning% = 0 
End' If « 
•Operator released Wiping cal button or we're calibrated 

End If 
End Sub 

Public Sub Hyd_Init__Of f ( ) 
•Turn hydraulics off 

frmP00Intaglio!Label51. Visible = True 
frmP00Intaglio!Label52. Visible = False 
frmPOOIntaglio !Label53. Visible = False 
Hydraulics % = 0 

End Sub 

Eublic Sub Int:tapsJEnit_Of f ( ) 

•Intaglio Impression mode: Off 
If MachineRunning% = 0 Then 

Intagliolmps Control % = 0 

frmPOOIntaglio !Label9. Visible = True 

f rmPOOIntaglio ! Label 8 .Visible = False 

frmPOOIntaglio! Label 6. Visible = False 

VarChangeFlag% (36) = 1 

If IntaglioImpsManual% O 0 Then 
IntaglioImpsManualfc =0 
f rmPOOIntaglio !Labell9. Visible = False 

End If 

f rmPO 01 ntaglio ! Command2 2. Enabled = False 
End If 



End Sub 

Public Sub IntWipe_Init_Of f () 

•Intaglio Wiping mode: Off 
If MachineRunning% 53 0 Then 
IntaglioWipeControl% = 0 
f rmPOOIntaglio JLabellS. Visible - True 
f rmPOOIntaglio !Labell4. Visible » False 
frmPOOIntaglio !Labell3. Visible = False 
VarChangeFlag%(37) - 1 
If IntaglioWipeManual% <> 0 Then 

IntaglioWipeManual% « 0 

frmPOOIntaglio !Labell6. Visible = False 
frmPOOIntaglio !Command25- Enabled =» False 
End If 
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End If 
End Sub 

Public Sub IntPrewipeJtnitjOff () 

'Intaglio Prewipe mode: Off 
If MachineRunning% = 0 Then 

IntaglioPrewipeControl% = 0 
frmP00Intaglio!Label21. Visible =» True 
f rmPOO Intaglio !Label20. Visible = False 
frmPOOlntaglio!LabellS*Visible « False 
VarChangeFlag%(38) « 1 
If IntaglioPrewipeManual% o 0 Then 
IntaglioPrewipeManual% - 0 
frmPQGIntaglio!Label22* Visible « False 
End If 

frmPQ0lntaglioiCommand29. Enabled = False 
End If 

RttH Sub 

Public Sub IntImps_ManJToggle ( ) 

•Intaglio Imps manual control 

If IntaglioImpsControl% » 1 Then 

If IntaglioImpsManual% = 0 Then 
IntaglioImpsManual% = 1 
f rmPOOIntaglio \ Label 19 .Visible 
Else 

IntagliolmpsManual% = 0 
f rmPOOIntaglio ! Labell9 .Visible 
End If 
End If 

End. Sub 

Public Sub Numbersl_Man_Toggle() 

•Numbering shaft 1 manual control 
If Numbering_JL_on% = 0 Then 

Numbering_l_jon% = 1 

frmPr ess run !Label31. Visible = True 

Else 

Numbering^ l__on% = 0 
f rmP ressruniLabel31. Visible = False 
End If 

End Sub 

Public Sub Numbers2_ManJToggle() 

If Numberiiig_2__on% = 0 Then 
Number in g_2_on% = 1 
frmPr ess run (Label 3 3. Visible » True 
Else 

Numbering_2__on% 53 0 

frmPressrun!Label33 -Visible = False 
End If 

End Sub 

Public Sub IntWipe_Man_Toggle() 

'intaglio Wiping manual control 
If IntaglioWipeControl% = 1 Then 

If IntaglioWipeManual% = 0 Then 

IntaglioWipeManual% = 1 

f rmPOOIntaglio !Labell6. Visible » True 

Else 

IntaglioWipeManual% « 0 



= True 
= False 
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frmP 00 Intaglio I Label 16. Visible = False 
End If 
End If 

VarChangeFlag%(40) » 1 
End Sub 

Public Sub IntPrewipe__ManJToggle ( ) 

•Intaglio Prewipe manual control 
If Intaglio PrewipeControl% « 1 Then 

If IntaglioPrewipeManual% = 0 Then 
IntaglioPrewipeManual% = 1 
frmPOOIntaglio I Label22 .Visible - True 
Else 

IntaglioPrewipeManual% = 0 
frmP00Intaglio!Label22. Visible = False 
End If 
End If 

End Sub 

Public Sub Inkerlnip_Man_Toggle ( ) 

•Intaglio Inker #1 nip control 
If IntaglioInkerlControl% = 1 Then 
If IntaglioInkerlnip% = 0 Then 

IntaglioInkerlnip% = 1 

frmPOOIntaglio J Label27. Visible = True 

Else 

IntaglioInkerlnip% = 0 

frmPOOIntaglio !Label27. Visible « False 
End If 
End If 

End Sub 

Public Sub Inker2nip_ManJToggle ( ) 

•Intaglio Inker #2 nip control 
If IntaglioInker2Control% = 1 Then 
If IntaglioInker2nip% - 0 Then 

IntaglioInker2nip% = 1 

frmP00Intaglio!Label4 5. Visible = True 

Else 

IntaglioInker2nip% = 0 

frmPO 01 ntaglio! Label 4 5. Visible = False 
End If 
End If 

F- nd Sub 

Public Sub Inkerlrun_Man_Toggle() 

•Intaglio Inker #1 fountain control 
If IntaglioInkerlControl% « 1 Then 

If IntaglioInkerlManrun* = 0 Then 
IntaglioInkerlManrun% « 1 
frmPOOIntaglio !Label2 6. Visible - True 
Else 

IntaglioInkerlManrun% » 0 
frmP00Intaglio!Label2 6. Visible = False 
End If 
End If 

End Sub 

Public Sub Inker2run_Man_Toggle<) 

•Intaglio Inker #2 fountain control 
If IntaglioInker2Control% = 1 Then 

If IntaglioInker2Manrun% = 0 Then 
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IntaglioInker2Manrun% = 1 
frmPOOIntaglio !Label41. Visible = True 
Else 

IntaglioInker2Manrun% = 0 
frmPOOIntaglio! Label 41. Visible =* False 
End If 
End If 

End Sub 

Public Sub IntInkerl_jrnit__Of f {) 

•Intaglio Inker #l*mode: Off 

If MachineRunning% = 0 Then 

IntaglioInkerlControl% « 0 
frmPOOIntaglio !Label42. Visible » True 
frmP00Intaglio!Label43. Visible = False 
frmPOOIntaglio lLabel44 -Visible = False 
VarChangeFlag%(34) = 1 
IntaglioInkerlnip% = 0 
IntaglioInkerlManrunft = 0 
frmPOOIntaglio »Label26. Visible » False 
frmP00Intaglio!Label27. Visible = False 
frmPOOIntaglio tCommandl2- Enabled = False 
frmPOOIntaglio !Command32. Enabled = False 

End If 

End Sub 

Public Sub IntInker2_Init_Of f ( ) 

'Intaglio Inker #2 mode: Off 

If MachineRunning% = 0 Then 

IntaglioInker2Control% = 0 
frmPOOIntaglio I Label 3 4 .Visible = True 
frmPOOIntaglio »Label33. Visible - False 
frmPOOIntaglio J Label32. Visible « False 
VarChangeFlag% (35) « 1 
IntaglioInker2nip% = 0 
IntaglioInker2Manrun% = 0 
frmPOOIntaglio »Label41. Visible » False 
frmP00Intaglio!Label45. Visible « False 
frmPOOIntaglio ! Command36 . Enabled = False 
frmPOOIntaglio !Coramand37. Enabled » False 

End If 

End Sub 

Public Sub FlexoImps_ManJToggle { ) 

1 Flexo Imps manual control 

If Flexolmps Control* = 1 Then 

If FlexoImpsManual% = 0 Then 
FlexoImpsManualft * 1 
f rmPOOFlexo ! Lab el 19 .Visible 
Else 

FlexoImpsManual% = 0 
f rmPOOFlexo !Labell9 .Visible 
End If 
End -If 

End Sub 



— True 

— False 
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NO* Program: Proofing press -processor 1 

NO'Module : POOJL.dmc 

NO' Version: VI. 0 

NO 1 Edit : -01 

NO'Creation: 22-Sep-00 

NO 1 Edit date: 01-Nov-01 

NO* Author: Joseph B. Schutte III 

MO' Industrial LightSMotlon, Inc. 

NO 1 2170 Van Blaricum Rd. 

NO 1 Cincinnati OH 45233 USA 

NO 1 

NO 1 Copyright (C) 2000-2002 

NO ' Industrial Light & Motion, Inc. 

NO 1 

NO 1 Revision History 
NO 1 

NO'Ver/Ed Date Who Reason 

NO 1 -01 16-Oct-Gl JBS Remap reg ctrls 
NO* 

N0 t ************★+*****+******+******** 

NO 1 * Powerup / Initialization here * 
NO 1 *********************************** 
#AUTO 

ST XYZW;NO 'Stop all Axis 1 
AM XYZW 
MO XYZW 

NO [ * Define/Init variables * ] 
DM AxisX[lOJ;OM AxisY[10];DM AxisZ[10] 
DM AxisW[10];DM AxisDXa[10] 
DM AxisDXb[101 
BiasA=1.000; BiasB=<L. 000 
BiasC=l .000; BiasD^l . 000 
CtWghtI=1000; CtWghtJ=1000 
CtWghtK=1000; CtWghtL=10QQ 
CutPerr=0; NumPerr=0; FlexPerr=0 
FlexCreq=0; DieCreqpO; NO [Tni t flags] 
Flexoffs~0; Dieoffs=0; NO[Init offsets] 
NumRof f s~0 ; CutRof £ s=0 

FlexoffA-0; DieoffsA=0; NO[ Init Acums] 
Nuraof fsA=0 ; Cutoff sA=0 ; NumSH=0 ; Cut SH=0 
FlexSH=0; Mlctwght^l; DieEna=0 
NumEna=0; CutEna=0; JogSpeed=20 
LinSpeed^O; NO [set line speed] 
Lsysmode=s0; NO [Last scan SysMode] 
Lsysrun=*0; NO [Last scan SysRun] 
ParamOK=0; SysCntr=0 ; SysMode=0 ? SysRun=Q 
Savel=0; NO [Powerdown save reg] 
SysState=0 

#PARCLR 

JP #PARCLR, ParamOK-0 

NO 'Wait here till Host sets ParamOK 
XQ #CREG,1; NO [Launch cutoff Ctrl] 
XQ #ABSREG,2; NO [ABS update routine] 
XQ #SUPPORT,3; NO [Launch aux task] 
#MAIN 

NO [ * Beginning of Executive Loop * ] 
#MAIN00 

JP #MAINS0, SysRun«4; NO [Reset faults] 



102 



WO 03/082574 



PCT/US03/09267 



l 

103 



WO 03/082574 



PCT/US03/09267 



JP #MAIN80, SysRun=6; NO (Drives Reset] 

JP #MAIN10, SysRun=0; NO [Stop seq] 

JP #MAIN60, SysRun=»l; NO [Cal sequence] 

JP #MAIN30, SysRun=2; NO [Run request] 

JP #MAIN40, SysRun^; NO [Jamup Stop] 

JP #MAIN70, SysRun=5; NO [Jog seq] 

JP #MAIN90, SysRun=?9; NO [Powerdown] 

JP #MN100, SysRun=*10; NO [Set Sysmode] 
JP #MAIN00/NO [Unrecognized command] 

#MAIN10 

AO i ***************+**********+***★**** 

NO ■* System Normal Stop . SysRun^O * 
NO i ****************★*************+****. 

NO 

JP #MAIN00, SysState»0; NO [stopped] 

JP #MA1N19, (SysState=l) I (SysState«3) 

JP #MAIN19, (SysState=4) I (SysState=6) 

JP #MAXN19, SysModeoO; NO [Not Flexo] 

NO [No-op states 1,3,4,6] 

ST X;AMX;NO [Stop Master] 

#MAIN19 

SysState=0 

JP #MAINO0 

#MAIN30 

jjO « **********+*********+*********+**** 
NO ■* RUN Mode SysRun=2 * 

JJQ I ****************+**************★*** 

NO 



#MAIN4,0 

NO •* System Jamup Stop Mod SysRun=3 * 
NO 

JP #MAINO0, SysState=3;NO [stopped?] 
JP #MAIN49, (SysState=l) ) (SysState=0) 
JP #MAIN49, <SysSfcate=4) 1 (SysState=6) 
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JP #MAIN49, SysModeOO 

STX; AMX; MO XYZW;NO [Stop Master] 

JP #MAIN49 

#MAIN49 

SysState=3 

JP #MAIN00 

#MAIN50 

UQ I *********************************** 

NO ■* Fault Reset Mode SysRun=4 * 

HQ t *********************************** 

JP #AUTO 
#MAIN60 

HO 1 *********************************** 

NO ■* System Cal Mode SysRun=l * 
HQ I **★****************+**********★***★ 

SysState=l;NO [Calibrate mode] 
Flexoffs=0; Dieoffs«0;NO[Init offsets] 
NumRof£s«0; CutRoff s=0 

FlexoffA*=0; Dieo£fsA=0; NO[ Init Acums] 
Numo£fsA=0; CutoffsA=0 
NO [Select entry point] 
#MAIN61 

JP #MAIN68, SysRunOl 

JP #MAIN62, FlexCreqoO 

STX; AMX; NO [Stop in case manning] 

JP #MAIN65 

#MAIN62; NO [Jog Flexo axis] 
J<ac=ProdHoS*12*CtWghtI/60; BGX 
#MAIN65 

JP #MAIN66 r DieCreqOO 

ST Y; AM YZW; NO [Stop axis'] 

JP #MAIN61 
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#MAIN70 

JIO * *****************+***********+***** 

NO •* JOG Mode SysRun=5 * 

NO » **********+************+******+**+* 

SysState=5;NO [Set Jog mode status] 
JP #MAIN75, SysModeoO 
JGX=JogSpeed*12*CtWghtl/60 
BG X; NO [Start line] 

#MAIN73 

GR , (CtWghtJ/CtWghtD+BiasB 
GR , , (CtWghtK/CtWghtI)*BiasC 
GR , , , (CtWghtL/CtWghtI)*BiasD 
JGX= JogSpeed* 12 * CtWgh t I / 60 
JP #MAIN00, SysRunOS 
JP #MAIN73 

#MAIN75 

GR (CtWghtl/MIctwght) *BiasA 
GR , (CtWghtJ/MIctwght)*BiasB 
GR {CtWghtK/MIctwght)*BiasC 
GR , , , (CtWghtL/MIctwght) *Bi.asD 
JP #MAIN00, SysRunOS 
JP #MAIN75 



#MAIN80 

NO 1 * Servo Loop Reset Mode SysRun=6 * 
NO t 

SysState=Q 

ST*; NO IStop all drives] 
MO XY; NO [Inhibit drives] 
JP #MAIN0O 

#MAIN90 

jjq i *** powerdown mode - SysRun=*9 *** 

Savel« TPX; SysState=9 

#MAIN91 

JP #MAIN91, SysRun=9 

DPX=SaveI 

JP #MAIN0O 

#MN100 

NO 1 *******+********+****************** 
NO •* Set System Mode SysRun=0.0 * 



mfi 



WO 03/082574 



PCT/US03/09267 



EN 

NO * *+********************** 

NO '* Logic for * 

NO '* Diecut Auto Register * 

#CREG 

Cregrefm=0 ; cmks^O ; Lcreg=0 
#CREG00A; AxisY[8]«0 
#CREG00 

AxisDXb[2]=*JTDX; JS #TAXDX1 
posH=AxisDXb[4] 

JP #CREG002, _ALY=*0; NO [Mark?] 

JP #CREG001, posH<CutLwin 

JP #CREG001, posH>CutUwin 

JP #CREG00 

#CREG001 

cmks=0 ; NO [Out of window] 
JP #CREG00 

#CREG002; NO [Have mark] 
AxisY[2]=_RLY; JS #TAXY 
Creg0=AxisY[4J 
ALY 

JP #CREG00 r cmks>0 
JP #CREG00, posH<CutLwin 
JP #CREG00, posHXZutUwin 
JP #CREG00A, CutRauto=0 
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&CREG100 
Cregrefra=posH 

CregO= (CutRof f s*CtWght J) -CregO 
JP #CREG102, (Creg0*-l)>(CPRJ/2) 
JP #CREG103, CregO (CPRJ/2) 
JP #CREG104 

#CREG102; CregO=CregO+CPRJ 
JP #CREG104 

#CREG103; Creg0«Creg0-CPRJ 
#CREG104 

CutPerr=CregO/CtWghtJ 

Jp #CREG105, Creg0>2500; NO Llmiter 

JP #CREG105, (Creg0*-1) <-2500 

JP #CREG109 

#CREG105 

JP #CREG109, Lcreg>2500 

JP #CREG109, (Lcreg*-l)<-2500 

Lcreg=Creg0; Creg0=0 

JP #CREG110 

#CREG109; Lcreg=Creg0 

#CREG110 

JP #CREG115, (CregO*-l)>CutMEmax 
JP #CREG116, CregOCutMEmax 
JP #CREG1X7 

#CREG115; CregO=CutMEmax*-l 
JP #CREG117 

#CREG116; Creg0=CutMEmax 
#CREG117 

Creg0=Creg0*CutMEgn*-l 

AMY; IPY=*Creg0; cmkslast=Creg0 

AxisY [ 8 ] =Axis Y ( 8 ] +CregO 

cmks=l 

JP #CREG00 

EN 

NO ************************* 
NO ■* Logic for * 
NO ■* Support variables * 
JJQ I ******■******* + ********** 

#SUPPORT 

NO [Calculate the actual linespeedj 
ALspeed=_TVX/CtWghtI*5 ; 
WT 10 

JP #SUPPORT 

NO ************************* 
NO ■* Logic for * 
NO •* ABS register routine * 

JJQ t ************************ 

#ABSREG 
WT 1000 

JP #ABSREG, (SysRun02> 
NO [Update Flexo position] 
JP #REGUP01, FlexSH=0 
AxisDXa[2]«_TDX; AxisX [2] =_TPX 
JS #TAXDX0; JS #TAXX 
refpos=AxisDXa[4] ; slpos«AxisX[4] 
ref pos=refpos/MI ctwght 
sloff=Flexoffs; ctwght=CtWghtI 
cprs=CPRI 
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JS #ECAI»C 

AMX; IP poserr02*AxisX[7] 

FlexPerr=poserr03 

#REGUP01 

NO [Update Diecutter pos] 
#REGUP02 

NO [Update Diecut pull pos] 

#REGUP03 

NumPerr=0 

NO [Update Sheeter positionl 
JP #ABSREG 

fcECAIiC; NO [Pos error calculator] 

slpos=slpos/ctwght 

poserr02=slpos+sloff 

poserrOS^refpos-poserrOa; NO [Error] 

poserr04=poserr03*ctwght 

JP #ECALC02, (poserr04*-l)>(cprs/2) 

JP #ECALC03, poserr04>(cprs/2) 

JP #ECALC04 

#ECALC02; poserr04=poserr04+cprs 
JP #ECALC04 

#ECALC03; poserr04=poserr04-cprs 
#ECALC0'4 

poserr03=poserr04/ctwght 
JP #ECALC05, poserr04<(Maxerr*-l) 
JP #ECALCG6, poser r04>Maxerr 
JP #ECALC07 

#ECALC05; pos err 04=Maxerr*-l 
JP #ECALC07 

#ECALC06; poserr04=Maxerr 
#ECALC07 

poserr02 BS poserr04 
EN 

NO [***Counter mgmt Code***] 

NO [ Array definitions ] 

NO £ 0 - Active mod counter value ] 

NO [ 2 - Hardware counter value ] 

NO [ 3 ~ Last scan counter value ] 

NO [ 4 - Calc'ed actual position 3 

NO [ 6 ~ Masked counter value ] 

NO [ 7 — Correction gain ] 

NO [ 8 - Correction accumulator ] 

NO [ 9 Temp scratch register ] 

#TAXDX0 

AxisDXa [9] =AxisDXa [2] &$0FFFFFF 

AxisDXa [ 6 1 =AxisDXa [ 9 ] 

AxisDXa [9] =AxisDXa [9] -AxisDXa [3] 

JP #EAXDX02, Ax±sDXat9]>8388608 

JP #TAXDX03, AxisDXa [9] <-8388608 

JP #TAXDX04 

#TAXDX02 

AxisDXa [9]-AxisDXa [9}-16777216 

JP #TAXDX04 

#TAXDX03 

AxisDXa [ 9] =AxisDXa[ 93 +16777216 
#TAXDX04; AxisDXat3]=>AxisDXa[6] 
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AxisDXa [03 =AxisDXa {01 +AxisDXa [9] 
#TAXDX05 

JP &TAXDX06, AxisDXa [0]>(CPRDX-1) 
JP #TAXDX07, AxisDXa £ 03 <0 
JP #TAXDX08 
#TAXDX06 

AxisDXa [ 0] =AxisDXa [0] -CPRDX 

JP frEAXDXOS 

#TAXDX07 

Ax±sDXa [ 0 ] =AxisDXa 1 0 3 +CPRDX 
JP #TAXDX05 

#TAXDXQ8; AxisDXa [43 =AxlsDXa [03 
EN 

#TAXDXl 

Axis DXb [ 9 ] =AxisDXb [ 2 ] & $ 0 FFFFFF 

AxisDXb [6] -AxisDXb [9] 

AxisDXb [9] -AxisDXb [9] -AxisDXb [3] 

JP #TAXDX12, AxisDXb [9] >8388608 

JP #TAXDX13, AxisDXb [9] <-8388608 

JP #TAXDX14 

#TAXDX12 

AxisDXb [93 =AxisDXb t9] -16777216 

JP #TAXDX14 

&TAXDX13 

AxisDXb [9]=AxisDXb[9] +16777216 
#TAXDX14; AxisDXb [33=AxisDXb [63 
AxisDXb [ 0 ] -AxisDXb [ 0 3 +AxisDXb [ 9 3 
#!EAXDX15 

JP #TAXDX16, AxisDXb [0]>139999 
JP #TAXDX17 # AxisDXb [03 <0 
JP #TAXDX18 
#TAXDX16 

AxisDXb [0]=AxisDXb[0] -140000 

JP #TAXDX15 

#TAXDX17 

AxisDXb [0 ] -AxisDXb 1 0] +14 000 0 
JP #TAXDX15 

#TAXDX18; AxisDXb [ 4] =Axis DXb [0] 
EN 

#TAXX 

AxisX [93 -AxisX [23 &$0 FFFFFF 

AxisX [ 63 =AxisX [93 

AxisX [93 -AxisX [93 -AxisX [33* 

JP #TAXX02, AxisX[93>8388608 

JP #TAXX03, AxisX [93 <-8388608 

JP #TAXX04 

#TAXX02 

AxisX [ 9 ] =AxisX [93 -167 77216 

JP #TAXX04 

#TAXX03 

AxisX[93=AxisX[93 +16777216 
#TAXX04; AxisX [3] -AxisX [6] 
AxisX [ 0 3 =AxisX [ 0 ] +AxisX [ 9 3 
#TAXX05 

JP #TAXX06, AxisX[0]>(CPRI-l) 
JP #TAXXQ7, AxisX[03<0 
JP #TAXX08 
#TAXX06 
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AxisX[OJ=AxisX[0]-CPRI; JP #TAXX05 
#TAXX07 

AxisXlO]«AxisX[0]+CPRI; JP #TAXX05 

#TAXX08; AxisX[4]»AxisXtO] 

EN 

#TAXY 

Axis Y 1 9 1 =AxisY [ 2 ] & $ OFFFFFF 

AxisY[6]=AxisY[9] 

AxisY[9]=AxisY[91-AxisY[3] 

JP &TAXY02, AxisY[91>8388608 

JP #TAXY03, AxisY[9]<-8388608 

JP #TAXY04 

#TAXY02 

AxisYt9]=AxisYt9}-16777216 

JP .#TAXY04 

#TAXY03 

AxisY[9]=AxisY[91 +16777216 
#TAXY04; AxisY[3]=AxisY[6] 
AxisY[0]=AxisY[0]+AxisY£9] 
#TAXY05 

JP #TAXY06, AxisY[0]>(CPRJ-l) 
JP #TAXYQ7, AxisYt01<0 
JP #TAXY08 
#TAXY06 

AxisY[0]=AxisY[0]-CPRJ; JP #TAXY05" 
#TAXY07 

AxisY[0]=AxisY[03+CPRJ; JP #TAXYOS 

#TAXY08; AxisY[4J=sAxisY£0J 

EN 

&TAXW 

AxisW£9]=AxisW[2] &$ OFFFFFF 

AxisW£6]=AxisW£9) 

AxisW [91=AxisW [ 9] -AxisW [3] 

JP #TAXW02, AxisW£9]>8388608 

JP #TAXW03, AxisW£9]<-8388608 

JP #TAXW04 

#TAXW02 

AxisW [ 9 } =AxisW [ 9 1 -167 7 7 216 

JP #TAXW04 

#TAXW03 

AxisW[9J=AxisW(9) +16777216 
#TAXW04; AxisW £3] <=AxisW£6] 
AxisW [ 0 ] ^AxisW [ 0] +AxisW [ 9 ] 
#TAXW05 

JP #TAXW06, AxisW [0]>65535 
JP &TAXWQ7, AxisW [01 <0 
JP #TAXW08 
#TAXW06 

AxisW £0]=AxisW[0] -65536; JP #TAXW05 
#TAXW07 

AxisW [0]=AxisW[0] +65536 ;JP #TAXW05 

#TAXW08; AxisW£4)=AxisW£0] 

EN 
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NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 
NO 

NO 
NO 
NO 
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Revision History 
Ver/Ed Date 



Who 



Reason 



Sensor assignments: 

VB1:IN2(L*J VB2:IN3(LZ) VB3:IN5(LE) VB4:IN6{LF) 
Intaglio marks :IN8(LH) Cutoff marks: INI (LX) 



i ************************************************************** 
'* Powerup / Initialization here * 



NO 
NO 
NO »* 

jlO t ************************************************************** 
#AUT0 

ST X Y£ WEFGH ; NO "Stop all Axis' 
AM XYZWBFGH 
MO XYZWEFGH 

NO [ * Define/Init variables * 1 
NO 

NO [Axis Acc/Dec parameters from host] 
NO AxisAAC, AxisBAC, AxisCAC, AxisDAC 
NO AxisEAC, AxisEAC, AxisGAC, AxisHAC 
ALspeed-0 ; DieRauto=0 ; arFlexoB^l .000 
CalState-0;NO I Calibrate mode] 
DieMKpos=0 

MSIJreq=0; MSWIreq=0; MSWJreq=0; NO [Requests for moves] 
ChiEna-0; PIEna-0; POEna=0; SHEna^O; WIEna=0 
EstopAC~20000G 

FlexCreq=0; IntCreq=0; DieCreq=0; NO [Init req flags] 

Iposerr^O; Dposerr=Q 

JogSpeed=20 

LastABSa=0; LastABSg=0 

LinSpeed-20; NO [set line speed] 

LockFlt-0* NO [Inhibit sys on fault] 

Lsysmode=0; NO [Last scan SysMode] 

Lsysrun=Q; NO [Last scan SysRun] 

MIctwght=1000 

NormAO^SQQ; NO [Acc/Dec ramp norm run 
ParamOK=0 

RevCTR=0 ; lcntr=JIPH; NO [Init the system counter] 
SysCntr=»0; NO [Num of imps since pwrup] 
SysMode=0 
SysRun»0; 

SysStat»Q; NO [System status ] 
SysState«0; NO [Current system state] 
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Testvar»0; NO [Debug variable] . 

VBregCTR«0*VBdieCTR=0;RevCTR«OfIntMarkC=0;DieMarkC«0; NO [Reg vars] 
WIgain=l; WOgain=l 

WipeMode=0; NO [Wiping transport mode] 
ProdCal«0; WipeCal=0 



NO 1 * Insystem variables 

NO AxisAAC=2000 

NO AxisBAC=20GOOOO 

NO AxisCAC=2OOO0OO 

NO AxisDAC=20Q00Q0 

NO AxisEAC«2000000 

NO AxisFAG=2QQOO00 

NO AxisGAC=2000000 

NO AxisHAC«2000000 



#PARCLR 

JP #PARCLR, ParamOK«0 

NO 'Wait here till Host sets ParamOK 
#MAIN 

XQ #SHUTM, 1; NO [Start Shuttle transport] 

XQ #WIPEM, 2; NO [Start wiping taskl 

XQ #DIEM, 3; NO [Start diecut register task] 

NO [ * Beginning of Executive Loop * ] 
#MAIN00 

JP #MAIN50, SysRun=4; NO [Reset faults] 
JP #MAIN80, SysRun=6; NO [Drives Reset] 
JP #MAIN00, LockFlt>0 ;NO [Locked out?] 
JP #MAIN10, SysRun=0; NO [Stop seq] 
JP #MAIN30 r SysRun-2; NO [Run request] 
JP #MAIN40, SysRun=3; NO [Jamup Stop] 
JP #MAIN70, SysRun=5f NO [Jog seql 
JP #MN100, SysRun=10; NO [Set Sysmode] 
JP #MAIN00fNO [Unrecognized command] 

#MAIN10 

NO i *********************************** 

NO ** System Normal Stop SysRun=0 * 

NO * * * 
NO i *********************************** 

NO 

SysState=SysRun;NO [Update state] 

JS #COUNTER; NO [Update system counter] • 

JP #MAIN15, SysModeOO; NO [Combi?] 

JP #MAIN00 

#MAIN15 

GR (CtWghtA/MIctwght)*BiasA*-l 
GR ,,, (CtWghtD/MIctwght)*BiasD*-l 
GR ,,,,,, (CtWghtG/MIctwght) *BiasG*-l 
JP #MAIN00 



i *********************************** 
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NO ■* RUN Mode SysRun=2 * 

NO •* * 

NO ************************************ * 
NO 

SysState=SysRun;NO [Update state] 
JP #MAIN35, SysModeOO; NO [Combi?J 
#MAIN31 

JS #COUNTER; NO [Update system counter] 
JP #MAIN00, SysRun<>2 
JP #MAIN31 

#MAIN35 

GR (CtWghtA/MIctwght)*BiasA*-l 

JS #COUNTER; NO [Update system counter] 

JP #MAIN00, SysRun<>2 

JP #MAIN35 

#MAIN40 

NO '* System Jamup Stop Mod SysRun— 3 * 
NO ' * * 
NO f * EstopAC controls decel ramp. * 
NO 1 *********************************** 
NO 

SysState-SysRun;NO [Update state] 
JP #MAIN45, SysModeOO; NO [Combi?] 
#MAIN42 

JP #MAIN00, SysRun<>3 
JP #MAIN42 

AMAIN 4 5 

GR (CtWghtA/MIctwght)*BiasA*-l 
GR , , r (CtWghtD/MIctwght) *BiasD*-l 
GR ,,,,,, (CtWghtG/MIctwght) *B±asG*-l 
JP #MAIN00, SysRun03 
JP #MAIN45 

#MAIN50 

NO 1 *********************************** 

NO '* Fault Reset Mode Sy3Run=*4 * 

NO * * * 

NO ■* Called on reset. * 

NO ■* * 

NO 1 *********************************** 

JP #AUTO 
#MAIN70 

NO 1 *********************************** 
NO •* JOG Mode SysRun«5 * 

NO 1 * * 
NO ■ *********************************** 

SysState=5;NO [Set Jog mode status] 

JP &MAIN75, SysModeOO 

#MAIN71 

JS #COUNTER; NO [Update system counter] 
JP #MAIN00, SysRunOS 
JP #MAIN71 
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#MAIN7S 

GR ( CtWghtA/MI ctwght ) *Bi asA*- 1 
GR , ,, <CtWghtD/MIctwght)*BiasD*--l 
GR ,,,,,, (CtWghtG/MIctwght) *BiasG*-l 
JS #COUNTER; NO [Update system counter] 
JP #MAIN00, SysRunOS 
JP #MAIN75 



#MAIN80 

NO i ***********++***+*+**************** 

NO ' * Servo Loop Reset Mode SysRuiv=6 * 

NO 1 * * 
NO t ****+**+****+****************+***** 

SysState«0 

CalState=*0;NO [Cancel calibrate status! 
SysStat=0 

ST*; NO [Stop all drives 1 
MO XY; NO [Inhibit drives] 
JP #MAIN00 

#MN100 

NO i *********+**+*****************+**** 

NO 1 * Set System Mode SysRun=10 * 

NO '* * 
NQ ,***+****+***********+**+*********** 

SysState^lOO; NO [Set Combo model 
ST XYZWEFGH; NO [Stop everything] 
MO XYZWEFGH 

JP #MN119, SysMode=0; NO [ Flexo only? ] 
#MN110 

GA DX, , , DX, , , DX; NO [Set reference] 
GR ( CtWghtA/MI ctwght ) *BiasA*- 1 
GR , (CtWghtD/MIctwght) *BiasD*-l 
GR ,,,,,, (CtWghtG/MIctwght) *BiasG*-l 
JP #MN111, PIEna«0; NO [Product Infeed] 
SH X 

#MN111 , , 

JP #MN112, SHEna=0; NO [Shuttle rolls] 
SH YZ 
#MN112 

JP #MN113, POEna=0; NO [[Product outfeed] 
SH W 

#MN113 _ , 

JP #MN119, ChiEna=0; NO [Chill rolls] 

SH G 

#MN119 

SysRun»100 

JP #MAIN00 

EN 

#COUNTER 

NO [ *** System counter support *** ] 

cntr= TPH; NO [Get current master position] 

JP #CNTR001, cntr>10000; NO [Are we in the window?] 

JP #CNTR001, lcntr<130000 

RevCTR=RevCTR+l 
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#CNTR001 
lcntr=cntx 

EN ' . ' 

NO t ****************************+****+++********+*****+******+**** 

NO •* Logic for Product Shuttle System * 

NO ■* * 

NO 1 * + + + + * + + + + + + + + * + + + + + + + + + * + * + + + + * + + * + + + + * + + + + * + + + * + * 

#SHUTM 

TrigCam=0 ; PMode=0 ; vblP=0 
#SHUT00 

JS #INITCAM, TrigCamOO; NO [Cam init request] 

JP #SHUTO0O, SysRun=0; NO [Stop request] 

JP #SHUT10O, SysRun=l; NO [Product calibration req] 

JP #SHUT200, Sy3Run=2; NO [Slystem RUN] 

JP #SHUT500, SysRun=5; NO [System JOG] 

JP #SHU1000, SysRun=10; NO [Initialization seq] 

JP #SHUT00; NO [Unsupported command] 

#SHUT000; NO [ Stop Sequence ] 

PMode=0 

JP #SHUTO0 



#SHUT100; NO [...Calibrate Sequence - Product...] 
PMode=*l; ProdCal=»0 

ST ADG; AM ADG; NO [Disengage PI servo] 
GAG=^W; GRG=(CtWghtG/CtWghtD)*BiasG 

JP #SHUT105, @IN[2]<>0; NO [Jump if VBl full] 
NO [...EI (VBl) low on paper...] 

JP #SHUT101, SysMode<>2; NO [Flexo only combi mode] 
FlexCreq=l; WT 50; NO [Request Flexo move] 
#SHUT101 

JGA=ProdHoS*CtWghtA/5; BGA 
#SHUT102 

JP #SHUT180, SysRunOPMode; NO [Abort?] 
JP #SHUT102, 8IN[2]=0 

JP #SHUT103, SysModeo2; NO [Only need Flexo in combi] 

FlexCreq=0; WT50; NO [Cancel request] 

#SHUT103 

JGA=1 ; NO [Stop drive] 

JP #SHUT110; NO [PI box calibrated] 

&SHUT105; NO [...PI (VBl) too much paper...] 
ST ADG; AM ADG 

j 



IntCreqKL; NO [Start Main drivel 
#SHUT106 

JP #SHUT180, SysRunOPMode 

JP #SHUT106, @IN[2]<>0 

IntCreq=0; NO [Stop Intaglio drive] 

JP #SHUT110; NO [PI box calibrated] 

#SHUT110; NO [VB2 / PO box calibration] 
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JP #SHUT115, @IN[3]<>0; NO [Jump if VB2/WO box full] 
GRD=0 ; GRG=0; STA; AMA; NO [Inhibit Ciiill and PO dfivesl 
Inter eq«l; WT70; NO [Starting Flexo and Int main drives] 
FlexCreq=l; WT50; NO [ . ♦ «VB2 low on paper. . .] 
JGA=ProdHoS*CtWghtA/5; BGA 
#SHUT111 

JP #SHUT180, SysRunOPKode 
JP #SHUT111, @INL31=0 

IntCreq=0; WT50; FlexCreq=0; WT50; NO [Stop drives] 

STA; AMA; NO [Stop PI servo] 

JP #SHUT120; NO [ . • VB2 calibrated..] 

#SHUT115; NO [VB2 has too much paper] 
GAG=W; GRG=*(CtWghtG/CtWghtD)*BiasG 
JGD^Pr odHoS * C tWghtD/ 5 

DieCreq=l; WT50; BGD; NO [Request Diecutting units to run] 
#SHUT116 

JP #SHUT180, SysRunOPMode 
JP #SHOTll6, @IN[3]<>0 ' 

DieCreq=0; WT50; STD; AMD; NO [We* re there - stop] 

#SHUT120; NO [Calibrated and waiting] 

ProdCal=255 

#SHUT121 

JP #SHUT121, SysRun«PMode 
JP #SHUT190 

&SHUT180; NO [Bailout of calibration] 

IntCreq=0; FlexCreq=0; DieCreq=0; NO [Stop all Req's] 
ST ADG; AM ADG 
ProdCal— 0 
JP #SHUT190 



#SHUT200; NO [...Run Mode - Product paper...! 

PMode=2 

#SHUT201 

JP #SHUTOO, PModeOSysRun 

JP #SHUT201, SysMode=0; NO [Flexo only mode?] . 
JP #SHUT250, IntRautoOO; NO [Auto (mark) register mode?] 
\ 

NO £VB regulator mode - Manual] 
VBregCTR=RevCTR; NO [First cycle sync counter] 
arFlexoB=1.000; NO [Reset auto reg Flexo bias to null 
#SHUT210 

JP #SHUT00, PModeOSysRun 
JP #SHUT201, IntRautoOO 

vblPlast^vblP; NO [Archieve the previous VB sensor read] 

vblP=@IN[2]; NO [Get ther current state] 

JP #SHUT211, (vblP=O)&(vblPlast<>0) ; NO [Falling edge?] 

JP #SHUT212 , ( (VBregCTR+2 ) <RevCTR) & ( vblp=0 ) 

JP #SHUT213, ( (VBregCTR+2)<RevCTR)&(vblP<>0) 

JP #SHUT210; NO [Loop...] 
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#SHUT211 

vbposl»_TPH; NO [Read the reference encoder] 
VBlsampo=vbposl 

Iposerr=*VBlnullP-vbposl; NO (This is the pos error] 

JP #SHUT213, Iposerr<(IntVBmax*-l) ; NO [Error out of - range] 

JP #SHUT212, Iposerr>IntVBmax; NO [Error out of + range] 

ipos001=Iposerr; JP #SHUT214; NO [Error in range] 

#SHUT212 

ipos001=IntVBmax; JP #SHUT214 
#SHUT213 

ipos001=IntVBmax*-l; JP #SHUT214 
#SHUT214 

ipos001=*ipos001*IntVBgn; NO [Adjust for error gain] 
SHlcorr=*ipos001 

#SHUT215; NO [Wait for end of print cycle] 
JP 8SHUT00, PModeOSysRun 

" .1 . '■ •• • 



JP #SHOT210 



NO [Intaglio Auto register mode] 
#SHUT2S0 

ALH; NO [Intaglio mark latch] 
#SHUT251 

N0 **** JS #SHUT27Q; NO [VBl auto mode support] 
JP #SHUT00, PModeOSysRun 
JP #SHUT201, IntRauto=0 
JP #SHUT251, _ALHO0 

JP #SHUT250, (_RLH<IntLwin) | (_RLH>IntUwin) 



" ipos001=Iposerr; JP #aHU , A , 2ib4; WU""lKrror in ranger 
ftSHUT252 

iposOOl^IntMEmax; JP #SHUT254 
#SHUT253 

ipos001=IntMEmax*-l; JP #SHUT254 
#SHUT254 

ipos001=ipos001*IntMEgn; NO [Adjust for error gain] 
SHlcorr=»ipos001 

#SHUT255; NO [Wait till end of print cycle] 
JS #SHUT270; NO [VBl auto mode support] 
- JP ttSHUTOO, PMod e OSysRu n 



JP #SKUT250 

NO [Intaglio Auto Reg VBl support] 
#SHUT270 

vblPlast^vblP; vblP=@IN[2] 

JP #SHUT271, (vblPO0)&(vblPlast»0) ; NO (Rising edge] 
JP #SHUT275, ((VBregCTR+2)<RevCTR)&(vblP<>0) 
JP #SHUT276, ((VBregCTR+2)<RevCTR)&(vblP=0) 
JP #SHUT279; NO [No activity] 
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#SHUT271; vbposl=_TPH; VBlautoE=VBlnullA-vbposl 

JP #SHUT272 / (VBlautoE*-l)>(CPRH/2) ; NO [Neg rollover?] 

JP #SHUT273, VBlautoE>(CPRH/2) ; NO [Pos rollover?] 

JP #SHDT274 

#SHUT272; VBlautoE=*VBlautoE+CPRH; JP #SHUT274 

#SHUT273* VBlautoE=VBlautoE-CPRH 

#SHUT274 

JP #SHUT276, VBlautoE<(arVBmax*-l) 
JP #SHUT275, VBlautoE>arVBmax 
JP 8SHUT277 

#SHUT275; VBlautoE^arVBmax; JP #SHUT277 
#SHUT276; VBlautoE=arVBmax*-l 
i #SHUT277 



^rSHUT279 
EN 

#SHUT500; NO [...Jog Mode - Product paper...] 

PMode«S 

#SHUT501 

JP #SHUT00, PModeOSysRun 
JP #SHUT501 



#SHU1000; NO [ Initialization sequence - Product paper...] 

PMode=10 
#SHU1001 

JP #SHUT00, PModeOSysRun 
JP #SHU1001 



JfclNITCAM; NO (Initialize the SHUTTLE cam] 



WO 03/082574 



PCT/US03/09267 



JSN 



NO ,*******************************+****************************** 
NO •* Logic for Wiping System ^ 



NO 



i * 



*******+*********** 



NO 

#WIPEM . 
WMode=*0; NO [WipeMode follows SysRun ex. offline] 
WipeCal^O; vb3P-0; vb4P=0; vb3rctr=0; vb4rctr=0 

NO [ * Beginning of Wiping Loop * 1 
#WIPE00 

JP #WIPE990, WipeMode=0; NO [Are we offline?l 

JP #WIPE01, WMode<>99; NO [Do we need to powerup drives?] 

SH EF 

WMode=0 

#WIPE01 

jp #WIPEO0O, SysRun=0; NO [Stop seq] 

JP #WIPE200, SysRun=2; NO [Run request] 

jp #WIPE800, SysRun«8; NO [Jog seq] 

jp #wiPE900 f SysRun=9; NO [Calibrate mode] 

JP #WIPE00; NO [Unrecognized command] 

#WIPE000; NO [Stop Sequence] 
WMode=0 

ftWTPEOOl 

JP #WIPE00, SysRunOWMode 

JS #WIPE960; NO - [Update the WI - WO speed loop] 

JP #WIPE001, ALspeed>Wauto'onS; NO [Down to Wipe off speed?] 

#WIPE006 

wOOl^ 3 TPH 

JP #WIPE007, ({w001+3000)>IPwipaut)&{(w001-3000)<IPwipaut) 

JS #WIPE960; NO [Update the WI - WO speed loop] 

JP #WIPE006, ALspeed>5; NO [Wait if we haven't stopped yet] 

&WIPE007 

MSWIreq=0; NO [Wiping impressions off] 
ST EF 

j1T#WIPE008, (SysRun=WMode)&(WipeModeoO) ; NO [Wait for mode to change] 
JP #WIPE00 

#WIPE200; NO [Run Sequence] 
WMode=2 _ . 

#WIPE201 
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JP #WIPEO0, SysRunOWMode; NO [Bailout?] 

JP #WIPE210 r WipeMode«l; NO [Manual mode ha n dler] 

JP #WIPE201, ALspeed<WautoonS; NO [Up to Wipe speed?] 

#WIPE202 

JP #WIPE00, SysRunOWMode 
wOOl- TPH 

JP #WIPE202, (w001+3000)<IPwipaut 

JP #WIPE202, (w001-3000)>IPwipaut; NO [In position?] 

MSWIreq=l; NO [Wiping impressions on] 

JGE=WipeRef S*CtWghtE/ 5 

JGF=WipeRefS*CtWghtF/5 

BG EF; NO [Get Drives in gear] 

#WIPE203; NO [This is the regulator loop] 

JS #WIPE960 , _ M 

JP #WIPE211 f <WipeMode=l)&(WipeMoo«0) ; NO [Manual Off req?] 

JP #W1PE203 / WMode=SysRun ;NO [Still in Run?] 

JP #WIPE00 

#WIPE210; NO [Manual ON scan] 
JP #WIPE00, SysRunOWMode 

JP #WIPE202, WipeMooOO; NO [Manual ON trigger] 
JP #WIPE210 

#WIPE211; NO [Manual OFF detect] 
WMode=0; NO [Trick decoder] 
JP #WIPE007; NO [Seq off] 

#WIPE800; NO [Jog Sequence] 

MSWJreq=l; NO [Request wiper jog] 
WMode=8 

WipeCal=0; NO [Clear calibration bit] 
JGE=*1; JGF^l; BG EF; NO [Get Drives in gear] 

JHJPE801 — 



#WIPE900; NO [Calibrate Sequence - Wiping] 
WMode=9; WipeCal=0 

MSWIreq«l; NO [Request wiping imps on] 
JGE=1; JGF=1; BG EF; NO [Get Drives in gear] 
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JP #WIPE902, @IN[5]00; NO [VB3 full] 
JGE=WipeHoS*CtWghtE/5; NO [ . . .Need paper. . . ] ' 
#WIPE901 

JP #WIPE985, SysRunOWMode; NO [Abort?] 

JP #WIPE901, 8IN{5]=0 

JGE=1; NO [Stop drive] 

JP #WIPE910; NO [Wl box calibrated] 

#WIPE902; NO [...WI (VB3) too much paper...] 
MSWJreq^l; NO [Start wiping drive] 
JGF^WipeHoS* CtWght F/ 5 
#WIPE903 

JP #WIPE985 / SysRunOWMode 
JP #WIPE903, @IN[5]oO 

MSWJreq=0; JGF=»1; NO [Stop wiping drive] 
JP #WIPE910; NO [WI box calibrated] 

#WIPE910; NO [VB4 / WO box calibration] 

JP #WIPE912, <§IN[6]oO; NO [VB4 / WO box full] 

MSWJreq=l; NO [Start Wiping and PI drives-we're low] 

JGE=^WipeHoS*CtWghtE/ 5 

#WIPE911 

JP #WIPE9B5, SysRunOWMode 
JP -#WIPE911, @IN[61=0 
MSWJreq=0; JGE=1; NO [Stop drives] 
JP #WIPE920 

#WIPE912; NO [YB4 has too much paper] 
JGF=*WipeHoS+CtWghtF/5; NO [ . . .Need paper. . . ] 
#WIPE913 

JP #WIPE985, SysRunOWMode 
JP #WIPE913, @IN[6JOO 
JGF«1 

#WIPE920 

SPE=5000; SPF»5000 
ST EF; AM EF 
PRE=WVBcalof 
PRF=*WVBcalof 
BG EF 

AM EF; MSWIreq=0; NO [Wiping imps off] 

WipeCal=255 

#WIPE921 

JP : #WIPE921 / SysRun=WMode 
JP '#WIPE00 



— SWIPE965; NO f...VB3...] 
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ffwxpssoo 

Wposerr=Wposerr+CPRH; JP #WIPE968 
#WIBE967 

Wposerr=Wposerr-CPRH 
&WIPE968 

JP #WIPE969, W£oserr<(WipVBmax*-l) 
JP #WIPE970, Wposerr>WipVBraax 
Wpos001=Wposerr; JP #WIPE971 
&WIPE969 

Wpos001=WipVBroax*-l; JP #WIPE971 
&WIPE970 

Wpos 0 0 l=WipVBmax 
#WIPE971 



EN" 



#WIPE975; NO [ . . . VB4 . - . ] 

JP #WIPE979, ((vb4rctr+2)<RevCTR)&(vb4P<>0) ; NO [VB4 box FULL! ] 
JP #WIPE980, {(vb4rctr+2)<RevCTR)&(vb4P=0); NO [VB4 box EMPTY!] 
WVBpos=JTPH; Wposerr=VB4nullP-WVBpos; NO (This is the error! 
JP &WIPE976, (Wposerr*-l)>(CPRH/2) ; NO [Negative rollover?] 
JP #WIPE977, Wposerr>(CPRH/2) ; NO [Positive rollover?] 
JP #WIPE978 
#WIBE976 

Wposerr=Wposerr+CPRH; JP #WIPE978 
#WIPE977 

Wposerr=Wposerr-CPRH 
#WIPE978 

JP #WIPE979, Wposerr<(WipVBmax*-l) 
JP #WIPE980, Wposerr>WipVBmax 
Wpos001=Wposerr; JP #WIPE981 
#WIPE979 

Wpos001=WipV8max*-l; JP #WIPE981 
#WIPE980 

Wpos001=WipVBmax 
8SZXBE984. 
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#WIPE985/ NO [Bailout of calibration] 
ST EF; MSWIreq=6; MSWJreq=0 
JP #WIPE00 



#WIPE990; NO [Offline - disable drives] 

JP #WIPE00, WMode=99 

ST EF; MD EF 

WMode=99 

JP #WIPE00 
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NO « ************************************************************** 

NO ■* Logic for Diecutting Register control * 

NO 1 * 

N0 i +*+***********+****************+***+*+************************ 

#DXEM 
vb2P=0 

NO [ Run Mode - Product paper...] 

#DIEM00 
&DXEM201 

JP #DIEM00, SysRun<>2 

JP #DIEM201, SysMode=0; NO [Flexo only mode?] 

JP #DIEM250, DieRautoOO; NO [Auto (mark) register mode?]. 

NO [VB regulator mode - Manual] 

VBdi e CT R=Re vCTR 

#DIEM210 

JP #DIEMO0, sysRun<>2 
JP #DIEM201 r DieRautoOO 

vb2Plast=vb2P; NO [Axchieve the previous VB sensor read] 

vb2P-@IN [3] ; NO [Get ther current state] 

JP #DIEM211, (vb2PO0)&(vb2Plast=0> ; NO [Falling edge?] 

JP #DIEM212, t(VBdieCTR+2)<RevCTR)&{vb2PO0) ; NO [Box Outer limit?] 

WTP #DIEM213, ( (VBdieCTR+2) <RevCTR) & ( vb2P=0) 

JP #DIEM210; NO [Loop...] 

#DIEM211 

vbpos2=_TPH; NO [Read the reference encoder] 
VB2s ampo=vbpos2 

Dposerr=VB2nullP-vbpos2; NO [This is the pos error] 

JP #DIEM213, Dposerr<(DieVBmax*-l) ; NO [Error out of - range] 

JP #DIEM212, Dposerr>DieVBmax; NO t Error out of + range] 

dpos001=Dposerr; JP #DIEM214; NO [Error in range] 

#DIEM212 

dposOOl^DieVBmax; JP #DIEM214 
#DIEM2X3 

dpos001=DieVBmax*-l; JP #DIEM214 
#DIEM214 



JP #DIEM210 

NO [Diecufcter Auto register mode] 
#DIEM250 

dmks=*0; DieMacum=0; DieMctr=0; DieWctr=0 
#DIEM251 

dmkslast=dmks; dmks=dIN[ll; NO [Get mark state] 

JP #DIE4253, {dmks=0)&(dmkslastoO) ; NO [Falling edge of mark?] 

JP #DIEM00, SysRuno2; NO [Line stop?] 

JP #DIEM201, DieRauto=0; NO [Return to manual?] 

JP #DIEM251 
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#DIEM253 

posh=_TPH; NO [Read position as quickly as possible] 
JP #DIEM251 f (posh<DieLwin) 1 (posh>DieUwin) 
DieMKpos=posh; NO [Save for VB display] 

Dposerr=(Dieoffs*MIctwght)-posh; NO [calculate the error] 

DieMacum=DieMacum+Dposerrj DieMctr=DieMctr+l ; NO [Get data] 

JP #DIEM251, DieMctr<DieSave; NO [Enough data] 

dpos001=DieMacum/DieSave; NO [Calc the average] 

JP #DIEM257, dposOOK(DieMEmax*-l) ; NO [Out of range?] 

JP #DIEM258, dpos001>DieMEmax 

JP #0IEM259 

#DIEM257; dpos001=»DieMEmax*-l; JP #DIEM259 
#DIEM258; dpos001=>DieMEmax 
JDIEM259 



#DIEM260;' NO ["This is the wait loop] 

JP #DIEM250, RevCTR> (VBdieCTR+DieSintv) ; NO [Wait for correct time] 
JP #DIEM00, SysRun<>2 
JP #DIEM201, DieRauto=»0 
JP #DIEM260 
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